!, 0 Ptas. 

Canarias 165 pts. 
LS COSAS ES DBASEIi. 
U SUEBSE 
DE Dos 

I'N 

COPYCAT: 
disco-¢ina 

en.len.guaje 

maqulna 

SOFTWARE 
Salvo a Sweevo 
de un mundo de 

Fantasia Infernal 



LO NUESTRO ES HACER BUENAS GESTIONES 
PARA 

AMSTRAD, PC Y COMPATIBLES 

/No estamos para uegos / 

DEMOSTRACIONES DE NUESTRO SOFTWARE 

les esperamos en 

COMERCIAL Y DE GESTION 
EN NUESTRO STAND 

£ FERIA 
IHFIRIIATICA  

PRECIOS ESPECIALES !. c' FERIA AMSTRAD 

FC'IUP, A21ON - $51o teclee un cSdigo y solen todos los dotos del cliente. Humetoci6n correlativo tico. ite 30 pructos 
distintos pot fturo. ite 30 pructos dist/ntos pot fturo. Aut6ticos, descuentos, coos, IVA. Prorcio  totoIes 
pot fturo. (P 1.3 ncl. IVA) 
PESTOS - Guordo en morio los prepuestos y extende los facturos. Conceptos de 2 carotenes 
escr£turo) (P 18.3 ncl. IVA) 
TAS - PEES, BOS, IENTES - 3 fckeos seporos. Res0menes totoIes, unorios o portholes. E1 meJor x11£or de 
CTILID el dle. (P# B.# inc1.1VA) 
f   IVA - CJgo de ? dgltos olfurJcos. 25 dlgtos deninoc£. Un solo ptoilo entros y so1£dos, c 
vts de os£entos tertores. Stks m6xlmo, Inimo y oviso poro rerovtsiiento. Totoles entos y soildos co ptio 
(P 15.3 Incl. IVA) 
ITES (c ettetos) - 11 coos distintos poro locolizi6n. Etiquetos 4 modelos dlstinios en solida de dos. EI m6s £iel 
xillor orror de ieo. (P 8.& ncI.IVA) 
RIBOS - Resuelve el prlema intermingle o osociies, cnldades, co1ios. FiJos los cos del normalzo y 12 cos 
(4 nuricos c c61culos t6tcos). Liqudies bcos. (PVP 18.3 Incl.IVA) Cm nuri tica 
incl. IVA). 
RTES - Tro[lento de minufa y facturas. Resgmenes po: g:upos. ).sos lertos permtemente, correctives, cblos, 
etc. hasta Isi fro. fJnol. (P 35. inc1.1VA) 
IVA R E@ - Relleno llqudacies Hoclendo. Intruce cuentos IVA gostos. (P@ 18. inc1.1VA) 
UIZIES - Lecturo y trotiento de ctadores csumos. (uo, gos, luz,etc) Extensi recibos y totolizacies bmcos. 
Emisi etietos. 
LIBS L IrA - Croles de repercutldo y sorto orden nurico. Resmenes estudios cparativos. Rellena lJquidi 
ciendo. (P&.8 inc1.1VA) 
INISTRI DE FI - Gst clea proFesiales. Sencillo meJo cuolquler pe:so (P 40. incl. IVA) 
FRI Y A - Gesti unida. Ficheros clientes, pructo, descuentos y corgos. Tos los res6menes. (P@ 18.9 incl 

1 DE GARANTIA 

NUESTRO EQUIPO PROFESIONAL 
PARA CUALQUIER MODIFICACION QUE 
UD. INDIQUE EN LOS PROGRAMAS, A 
UN PRECIO MODICO 

Llamar o contactar con Juan Luis Ruiz 

PEDIDOS, TELEFONO, CARTA O TELEX 
REEMBOLSO SIN GASTOS. 
ESPECIAL A COLABORADORES 
RESTO DE ESPAIKIA 

I .,mllbinform6tica 
dlliml 

C/JAIME EL CONQUISTADOR, 27 
28045 MADRID Tno. 474 55 00 
474 55 32 
Tlex IGSA 48452 
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Se soficitar6 control OJO 

Ao II • Ndmero 36 • 6 al 12 de Mayo de 1986 
160 ptas. (incluido I. V.A.) 
Canarias, 155 ptas.+ 10 ptas. sobretasa area. 
Ceuta y Melifla, 155 ptas. 

Primera 
piano 

Ha so/ida e/ especia/ de Micromonia. 

Para... PCW 
Probamos Dbase /I, /a base de datos ms /egendor/a 
de/mundo, y probablemente /a me/or clue existe hay 
para Amstracl. 

maqulna 
Una increib/e utilidad para pasar programas entre 
disco y cinto de casi todas /as maneras posib/es. 

Primeros 
pasos 

C6mo se define y representa grdf/camente un 
cardder ASCII creado par el usuaria. 

$erie Oro 

Todo /o que quer[as saber y poder hater con los 
ndmeros comple/os, a partir de ahora tu Am#rod te 
/o pone fdci/. 

ProgramAcci6n 
Ultimo aricu/o de/a serie de/mane/o de son/do en 
Basic que cierro con ¢¢lrf.he de or un cop#do 
mds de ProgramAcci6n. 

Mr. Joystick 

La oventura tridimensional, pixe/ a pixel, de/infe//z 
Sweevo. 

AVISO A NUESTROS LECTORES 

Comunicamos a todos nues- 
tros lectores que desde el ! de 
mayo nuestra direcci6n y tel- 
fono$ son los siguientes: 
HOBBY PRESS, S.A. 
Ctra. de Irbn km 12,400 
(Fuencarral). 28049 MADRID 
Telefonos: 

Suscripciones: 734 65 O0 
Redacci6n: 734 70 12 

coYoeeYAMSTRAD 3 



C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro O'Donell o Goya) 
Aparcamiento gratuito en Felipe II 

SOFTWARE: ii 2 PROGRAMAS POR EL PRECIO DE 1!! 
Y adem6s, completamente gratis, un magnifico reloj de cuarzo. Increlble ;.verdad? 

Ptas. 
PING PONG 2.295 
SABOTEU R 2.295 
RAMBO 2.295 
YIEAR KUNG FU 2.295 
WORLD SERIES BASEBALL 2.095 
MAPGAME 2.750 
RAID 2.295 
HYPERSPORTS 2.295 
HIGHWAY ENCOUNTER 1.750 
HIGHWAY ENCOUNTER DISCO 3.300 
ALIEN 8 1.750 

DYNAMITE DAN 
SABRE WULF 
THEY SOLD A MILLION 
FIGHTER PILOT 
MASTER OF T. LAMP 
NIGHIT SHADE 
HACKER 
SUPER TEST 
TORNADO LOW LEVEL DISCO 
TORNADO LOW LEVEL 
KNIGHT LORE 

Ptas. 
2.100 
1.650 
2.500 
1.975 
1.950 
1.950 
1.950 
2.300 
3.300 
1.750 
1.750 

SOFTWARE DE REGALO: |iOFERTA 2 x 1 !! 

Beach Head 

Decathlon Dummy Run Beach Head Southern Belle 
SOFTWARE DE GESTION PROFESIONAL 

DBA II 17.800 DR. GRAPH 
CBASIC 15.100 CONTABILIDAD 
DR DRAW 15.100 Y VTOS. 

15.100 
16.600 

IMPRESORAS 
i120% DTO. $OBRE P.I/.P.!I 

I I 

UNIDAD DE DISCO 51A '' 
PARA AMSTRAD 
34.900 PTA$. 

A PIZ OPTAco 

CINTA VIRGEN ESPECIAL ORDENADORES 
69 PTAS. 

SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTAS. 

JOSTICK QUICK SHOT II 
1.995 PTAS. 
JOYSTICK QUICK SHOT V 
2.295 PTAS. 
con la compra de un joystick 
iiGRATIS 1 RELOJ DE CUARZO!! 

DISKETTE 51A '' 
295 PTAS. 

DISKETTE 3" 
990 PTA5. 

Pedidos contra reembolso sin ningQn gasto de envio. Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro-1. C/Duque de Sesto, 50.28009 Madrid 



Tenemos en el mercado 
otro 16piz 6ptico, que viene 
en un paquete que |ncluye 
el perlfrico propiamente 
dicho junto con e/software 

necesario para hacerlo 
funcionar. 

I aparato, creado 
par Electric Studio Pr0ducts, est6 
preparado para correr en todos los 
Amstrad CPC. 
Existe, par tanto, en versiones de 
disco y cassette a los siguient-.s pre- 
cios: 
CPC 464 CASSETTE 4.900 ptas 
CPC 464-664 DISCO 6.900 ptas 
CPC 6128 DISCO 6.900 ptas 
A primera vista, y a la espera de 
un veredicto m6s riguroso prove- 
niente de un Banco de pruebos, el 
paquete, 16piz y soft, tiene bastante 
buena pinta. Parece ser aceptable- 
mente sensible y su manejo es muy 
sencillo y amigable, regido par un 
men0 de iconos. Sus capacidades 
grficas son, en principio, muy bue- 
nas, segOn Io que los miembros de la 
redacci6n de AMSI'RAD han podido 
observar. 
La distribuci6n exclusiva en Espa- 
a de los productos de la casa ingle- 
sa la realiza Ofites Inform6tica, cu- 
ya direcci6n es la siguiente: 
Avda. Isabel II, 16-B 
Tel. 45 55 44 - 45 55 33 
20011 San Sebasti6n. 

f 

M6s y m6s para 
el pcw 8256 

Ua nueva compa- 
lia de Software, Ordemania Soff, se 
ha incorporado aJ cada vez m6s 
competitivo mundo de los programas 
de gesti6n para el PCW 8256, con 
un programa de contabilidad adap- 
tado al plan Contable Espaol, con- 
templando el asunto del IVA. 
Se trata de una creaci6n muy com- 
pleta que esperamos tenet muy 
pronto oportunidad de analizar ex- 
haustivamente en la secci6n <<Para... 
PCW. 
Aprovechamos la coyuntura para 
agradecer desde aqui a nuestros lec- 
tares la favorable opini6n que <Pa- 
ra o.. PCW les merece, y que han 
tenido el detalle de hac6rnoslo saber 
par carta o tel6fono. 
Ordemania Soft est6 en: 
C! Torres Quevedo, 34 
02003 Albacete 
Tel. (967) - 22 79 44 

C0rta y pega este cup6n en la casilla 
correspondiente de la p6gina 16 del 
n0mero 31 de AMSTRAD Semanal, 
una vez completada la p6gina, 
envianosla junto con tus dabs. iSUERTF! 

En el mes de mayo 

MICROMANIA 
LANZA UN NU/vIEEO 
¢¢M U Y ESPE  'IA 

MICROMANIA, nuestra hermana 
mayor que coma sab6is se dedica 
mesa mesa analizar los mejores jue- 
gas para todos los ordenadores, va 
a lanzar el pr6ximo mes de mayo un 
especial, al precio de 400 ptas., de- 
dicado par entero a una de las sec- 
ciones que m6s le caracterizan: Pa- 
tas Arriba. 
Pokes y mapas a todo color de los 
juegos m6s populates, Rambo, Star- 
quake, Cauldron, Atic Atac, Tir Na 
Nog... y asi hasta un total de 13, se 
desarrollan a Io largo de 84 p6ginas 
con un gran despliegue de fotos e 
instrucciones para resolverlos m6s f6- 
cilmente. 

coo88 AMSTIAD  
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Presenta: d universo del software, 

La ms moderna base de datos 
DELTA, superJndose a si misma, 
"DELTA +", desarrollada para 
CP/M por COMPSOET con todo 
en espafiol. 
Disefia sus propios ficheros; des- 
de un simple fichero de nom- 
bres y direcciones hasta su pro- 
pio sistema contab/e. El formato 
standar DIE permite intercam- 
biar datos en DELTA, desde /as 
hojas de cJlculo CRACKER II, 
etc.., y viceversa. Intercambio de 
datos con/a mayoria de los tra- 
tamientos de texto como NEW- 
WORD para MAILING. 
Incluye un sencillo y funcional 
sistema de impresi6n de etique- 
tas con: hasta 5 columnas de eti- 
quetas, 65 caracteres por etique- 
tas, 20/ineas con 3 campos cada 
una. 
• PROGRANIABLE Y RELACIO- 
NAL. 
• FICHEROS INDEXADOS. 
• HASTA 90 CAMPO5 6 2000 
CARACTERES. 
• MULTIPLE5 515TEMAS DE BUS- 
QUEDA, 8 CLAVE5. 
• FICHERO5 DE HASTA 8 
• 8 GRUPOS DE TRANSACCION 
POR REGISTRO. 

BASE 
DE DATO$ 

17.850 pts. 

Programa de tratamiento de tex- 
tos mejorando todo Io anterior. 
Manual y programa en espadol, 
que le ensefiarn con facilidad y 
rapidez Io ms a vanzado en pro- 
cesadores de textos. Compatibi- 
lidad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 
Tiene un potente MAIL-MERGE 
con opciOn de se/ecci6n de des- 
tinatarios por criterios base de 
datos, creaci6n de documentos, 
impresiOn de etiquetas. Utiliza 
todo el espacio de disco. Ensam- 
blaje de textos, sustituciOn, etc., 
de/a forma mJs fcil." autohace 
copias de seguridad, iNUNCA 
PERDERA UN TEXTO t. 
• /, ACENTO5, DIERESIS, ETC... 
• PRESENTACIONEXACTAENPAN- 
TALLA DEL FUTURO DOCU- 
/vlENTO IMPRESO. 
• INTERCAMBIOSDEFICHERO5 
CON CRACKER. 
• VARIABLES SUSTITUIBLE5 EN 
IMPRESORA. 
• POTENTE CALCULADORA. 
• COMPROBADORORTOGRA- 
FICO Y GRAN DICCIONARIO 
(45.000 TERMINOS AMPLIA- 
BLES). 
• POSIBILIDAD DE LECTURA DE 
FICHERO5 DE DELTA, CARD 
BOX, SUPERCALC, DBASE II, 
ETC... 

TRATAMIENTO 
DE TEXT05 

17.850 pts. 

EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAfiA 

El CRACK de /as hojas de cJlcu- 
Io, la que deja detrJs al resto. 
Funciones nunca vistas, forma- 
teo de fechas, salvaguardia con- 
tinua sobre un fichero. Realiza 
• automJticamente copias de se- 
guridad. AdemJs de [as tradicio- 
hales funciones, CRACKER II 
posee funciones 16gicas, estadis- 
ticas y de alta matemJtica. Inter- 
cambia datos con NEWWORD, 
bases de datos y la mayoria de/as 
hojas de clculo. 
• CELDA5 PROGRAMABLES. 
• FUNCIONES ESPECIALES: 
Fecha, dias; desde y hasta la fe- 
cha de la semana, del ao, lapso 
de tiempo, retraso, beep entra- 
da, saludo usuario. 
• 515TEMA DEAYUDA ON-LINE. 
• 5UNIA CONDICIONAL. 
• TOMAR DECISIONE5 EN LA 
HO]A. 
• 18 MODO5 GRAFICOS DIS- 
TINTOS. 
• TRADICIONALES FUNCIONES 
MATEMATICA5 YAMPLIACION, 
FUNCIONES ESTADISTICAS Y 
L OGICAS. 
• GENERA GRAFICOS EN BASE 
A LOS DAT05. 

HOIA 
13 CA£CU£ O 

17.850 pts. 



In orm tica 

e as so u e .1,. 

NUCLEUS ms que una estre//a 
una constelaci6n; tres ESTRELLA5 
en un 5UPERPROCRAMA, la so- 
luciSn a cualquier aplicaci6n por 
comple/a que sea, NUCLEUS es 
GENERADOR DE PR OGRAMAS, 
BASE DE DAT05 Y GENERA- 
DOg DE INFORME5. 
Toda /a informaci6n es multi-in- 
tercambiable y de fibre acceso 
por cualquiera de los demos 
Pbbrogramas. As[ los datos de la 
ase los condicionamos y utifi- 
zamos en el generador de pro- 
gderamas y los imprimimos a tra v#s 
I flenerador de informes. 
• GENERADOR DEPROGRAMA5 
EN MALLARD BASIC. 
• CREACION DE BASES DE DA- 
TOS RELACIONALES. 
• GENERADOR DE INEORMES. 
• DISEADOR DE FORMAT05. 
• DISEADOR DE PANTALLAS. 
• COD/GO FUENTE DE LIBRE 
ACCESO Y LIBRE DE ERROR. 
• DISEA 5U PROPIO 515TEMA. 
• MAILMERGE. 

La revolucibn de/pensamiento, 
BRAINSTORM es un programa 
que piensa con Vd. 
El compafiero ideal para el em- 
presario, director o cualquier 
persona que tenga que planifi- 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece- 
saria para su organizaci6n. El 
programa que se ha standariza- 
do en Inglaterra, tan necesario, 
6til y popular como una base de 
datos o un tratamiento de textos. 
• ORGANIZA POR RANG05. 
• ACCESO DESCENDENTE POR- 
MENORIZADO. 
• PLANIFICACIONA NIVEL DIA. 
• DECISIONESALARCOPLAZO. 
• REVISION DE PROBLEMAS. 
• SIMULTANEIZACION DE TA- 
REAS. 
• PROCESO TOP/DOWN. 

Piii... su ordenador le comunica: 
La revoluci6n de las comunica- 
ciones, de la mano de OFITE5 
INFORMATICA, IleEa a Espafia. 
El nuevo mundo de las comuni- 
caciones digitales Io tiene a su 
disposici6n, las redes de transmi- 
si6n electr6nica diEitalizada, con 
su PCW 8256 o PCW 8512 a trav#s 
de un interface R5 232-C con 
otros ordenadores, redes de trans- 
misi6n de datos, etc..., Vd. podr# 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 
• TRANSICIONE5 DIRECTA5 EN 
RED. 
• COMPATIBILIDADCONNEW- 
WORD. 
• POSIBILIDADES DE TRANSMI- 
SIONE5 VIA MODEM, RED 
TELEEONICA. 
• COMUNICACIONINSTANTA- 
NEA. 

G£NERADOR , 
DE PROGRAMA5 

26.780 pts. 

ORGANIZADOR 
DE IDEA5 

17.850 pts. 

COMUNICACIONES 

17.850 pts. 

• DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
$i Vd. liene alguna dificultad para obtener los programas, puede 
dirigirse a: 

ofites 
Inform,  tica 

Avda. lsabel ll, 16 - 8 Q 
[els. 455544- 455533 
T61ex 36698. 
20011 SAN SEBASTIAN 

CONDICIONES ESPECIALES PARA DISTRIBUIDORES 
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Autor: Fco. Javier Barcel6 T 

En el ndmero 33 de esta revista, se hizo referencia a 
una base de datos para los CPC. Qued6 explicado Io 
que era una base de datos, y c6mo manejaba todo tipo 
de ficheros con una gran facilidad. AI aumentar la 
memoria de los ordenadores, las bases de datos se ban 

ido haclendo m6s complejas, y ban ido incorporando 
m6s y m6s funciones, hasta Ilegar al programa que 
hoy analiza MICROHOBBY AMSTRAD. 

8 Icoo88AMSTRAD 

at Base II, es otro 
programa cl6sico en los ordenadores perso- 
hales. Pero 6ste no es un simple programa de 
base de datos. M6s que eso, se podria decir 
que es un pequeffo lenguaje de programaci6n, 
con una finalidad Onica: desarrollar progra- 
mas que gestionen uno o m6s ficheros de da- 
tos. 
La primera impresi6n que da DBASE II es 
realmente buena. El libro de instrucciones es 
una voluminosa carpeta, estructurada en dos 
partes, y, iSORPRESA!, en espaffol. La primera 
parte de este libro es una introducci6n al ma- 
neio del programa, que explica poco o poco, 
las principales caracteristicas del programa. 
La segunda parte, explica el uso avanzado del 
programa, y da un glosario de todas las posio 
bilidades del mismo. No obstanle, y ste qui- 
z6 sea el Onico ¢pero que se pueda poner al 
paquete, el manual deja poco claras algunas 
de sus caracteristicas. La creaci6n y manejo 
de una base de datos es f6cil, y ofrece pocos 
problemas, pero la combinaci6n de esto con 
las otras herramientas que proporciona ya 
complica el asunto un tanto, siendo necesarias 
varias horas de prctica para alcanzar un do- 
minio aceptable de las posibilidades que tie- 
ne. Que no son pocas... 
A la hora de examinar el programa, se pue- 
den dividir las facultades de DBASE II en dos 
partes: La primera consistir en la creaci6n y 
el maneio de una base de datos o fichero. La 
segunda, examinar el resto de las facilidades 
que proporciona el programa y el resultado 
de combinarlas con las anteriores. Esto es, un 
programa. 

MANEJO IE UNA 
BASE DE IATOS 

Cuando se carga el programa, Io primero 
que hace es pedir la fecha. Este dato es op- 
cional, pero es conveniente darlo. AI hacer- 
Io, cada vez que se modifica el fichero, el pro- 
grama graba la fecha cada, con Io que per- 
mite saber en todo momento el Oltimo dia que 
6ste se modific6. Pero adem6s, al hacer los lis- 
tados saldr6 tambin la fecha. 
Despu6s de la fecha, aparece un punto a la 
izquierda de la primera linea libre. Esta es la 
linea de comandos. DBASE II reconoce los co- 
mandos a trav6s de las cuatro primeras letras 
tecleadas, de modo que no hace falta escri- 
birlos enteros. 
Si el programa detecta un error de sintaxis, 
Io advierte y pregunta si se desea corregir la 
orden. En caso afirmativo, pregunta: 
- CHANGE FROM.: Teclear la parte inco- 
rrecta. 
- CHANGE TO...: Teclear correctamente. 
En el cuadro de control del cursor, aparece 



c6mo salir de Io que se est6 haciendo, a la 
nea de comandos. Para salir del programa, 
se usa el comando QUIT. 

1. Creaci6n de una base 
de datos 

El primer mandato para crear un fichero es 
CREATE. Este crea la base de datos, en base 
a las siguientes preguntas: 
- Nombre del fichero. 
- Estructura. 
La definici6n de la eslructura es de especial 
importancia, dado que aunque se pueda mo- 
dificar mediante el comando MODIFY, esto 
borra todos los registros que haya grabado 
anteriormente. 
En la estructura, hay que introducir prime- 
ro el nombre del campo, luego su tipo, su Ion- 
gitud y ngmero de decimales. Admite tres ti- 
pos de campos: alfanum6rico, num6rico y 16- 
gico. Este Oltimo es para aceptar expresiones 
16gicas de tipo: Verdadero o Falso. Si un cam- 
po, aunque sea num6rico, no va a exigir nin- 
gOn tipo de operaci6n matem6tica, es prefe- 
rible ponerlo como alfanum6rico, debido a 
ciertas operaciones que son posibles con los 
campos num6ricos, como tolalizar los campos 
numricos de los registros. (Asi evitamos que 
aada al total de ellos el ngmero del D.N.I. 
o el C.I.F. etc.). En los campos numricos se 
pueden definir las posiciones decimales, pero 
siempre teniendo en cuenta que hay que con- 
tar entre elias el punto decimal. 
El nombre puede constar de hasta 10 carac- 
teres, incluyendo el signo (:), sin espacios in- 
termedios. En caso de error, DBASE II Io de- 
tecta y pide que se introduzca el hombre otra 
vez. Despu6s, el programa va numerando los 
campos autom6ticamente, hasta un mximo 
de 32 campos por registro. El m6ximo de ca- 
racteres que pueden sumar todos los campos 
de un registro es de 1.000, y la Iongitud m6- 
xima de coda campo es de 254 caracteres. Co- 
mo se puede ver, admite una capacidad m6s 
que aceptable. AI pulsar INTRO en un cam- 
po vacio, el programa interpreta que se ha 
acabado de definir la estructura, y pregunta 
si se quiere empezar a introducir datos en el 
fichero. Se puede empezar en ese momento, 
u optar por hacerlo posteriormente. 
Si se dispone de varios ficheros distintos, pa- 
ra seleccionar el fichero con el que se va a ope- 

rar, se utiliza el comando USE seguido del 
nombre del fichero. Si se est6 usando un fiche- 
ro, y se quiere cambiar a otro, al volver a uti- 
lizar este comando, cierra el fichero antiguo 
antes de poner a disposici6n del programa el 
nuevo fichero. 

2. Introducci6n de datos 

El mandato APPEND permite introducir da- 
tos en una base ya creada. AI seleccionarlo, 
se coloca en el primer registro libre del fiche- 
ro, presentando en la pantalla el nOmero de 
registro, y los nombres de los campos defini- 
dos previamente, quedondo preparado paro 
aceptar los nuevos datos. El espacio del que 
se dispone para introducir estos datos est6 de- 
limitado entre signos (:) yen video inverso, de 
manera que 6ste no puede exceder de la ca- 
pacidad definida previamente en la estructu- 
ra. Para acabar, basra con pulsar INTRO en 
el primer campo vacio del registro, y el pro- 
grama retorna a la linea de comandos. Ade- 
m6s, se pueden intercalar registros entre otros 
a trav6s del comando INSERT. Previamente 
habr6 que activar el registro entre el que se 
quiere intercalar. La manera de activar un 
registro se ve un poco mgs adelante. 

3. Consulta, modificaci6n 
y borrado de datos 

Para facilitar la bOsqueda, consulta y mo- 
dificaci6n de los datos del fichero, DBASE II 
dispone de dos comandos: EDIT y BROWSE. 
EDIT pregunta el ngmero del registro, pre- 
sentndolo a continuaci6n en el mismo formato 
que APPEND. Es decir, un campo en cada li- 
nea. Una vez en pantalla, el registro se pue- 
de modificar o borrar. Borrar el registro con- 
siste en colocar una marca en el mismo. En la 
parte superior de la pantalla aparece la pa- 
labra DELETED (borrado), yen los listados 
aparece con un asterisco en la posici6n ante- 
rior al primer campo. A partir de ese momen- 
to, y a no ser que se borre dicha marca, no 
podr6 set copiado, aadido o clasificado. No 
obstante ste no serg fisicamente eliminado del 
fichero hasta que se emplee el comando PACK. 
La modificaci6n se efectOa simplemente situan- 
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do el cursor encima del dato a modificar, y es- 
cribiendo encima. 
BROWSE es similar a EDIT, excepto en la 
presentaci6n en pantalla. Esto, la realiza una 
linea por registro, presentando en cada una 
tantos campos como quepan en la pantalla. 
Se puede desplazar la linea a izquierda o de- 
recha de manera que queden otros campos 
a la vista, o Ilamar al comando incluyendo una 
lista de campos. En este caso, s61o saldrgn por 
pantalla los campos pedidos. La ventaia de es- 
te mandato est6 en que para consullas o mo- 
dificaciones, disponemos de varios regislros en 
pantalla simultneamenle (todos los que que- 
pan), aunque a veces no dispongamos de to- 
dos los campos de cada registro. 
Para manejar los registros, el programa em- 
plea un puntero, que seala al Oltimo registro 
que haya sido utilizado. Este es el registro ac- 
tivoli. Para presentar dicho registro en la pan- 
talla, se puede utilizar el mandato DISPLAY. 
Este, presentarg el registro ,activo en ese mo- 
mento, y volver6 a la linea de comandos. DIS- 
PLAY ALL listar6 todos los registros, y si se es- 
pecifica un ngmero de registro, listar6 dicho 
registro y 6ste se convertir en el registro ac- 
tivoli. 
Para listar todos los registros de un fichero, 
se teclea LIST. Si hay m6s registros de los que 
caben en la pantalla, se puede detener el lis- 
tado con (CTRL S), y 6ste continuar al pulsar 
cualquier otra tecla. 
Se puede listar parcialmente el fichero am- 
pliando el comando usando c6digos u opera- 
dores. 
Esto es, se puede pedir un listado en el que 
los tel6fonos empiecen por un determinado ng- 
mero, o en los que el distrito postal sea ma- 
yor o menor que un nOmero, etc... Esto se hace 
con LIST FOR (expresi6n). LIST OFF lista los 
registros sin su nOmero de registro. Adem6s, 
LIST STRUCTURE presenta en pantalla los da- 
tos introducidos al crear un fichero, y la Olti- 
ma fecha en que ste se puso al dia. 
Otros mandatos para combinar con los an- 
tefiores y poder moverse por el fichero, son 
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GO SKIP y (?). Su funcionamiento es similar a 
los anteriores, excepto (?) que ademas se pue- 
de utilizar para realizar operaciones matem6- 
ticas y presentar el resultado en pantalla. (Si- 
milar a PRINT en Basic). 

4. Borrado total de datos 
y de ficheros 

Como se ha dicho anteriormente, colocar la 
marca de borrado en un registro no significa 
borrarlo fisicamente. Aunque el registro mar- 
cado no se pueda usar, este borrado no es 
irreversible. Se puede recuperar de dos for- 
mas distintas. La primera es volver a editar el 
registro, y desactivar el c6digo. La segunda 
es a trav6s del comando RECALL. Este coman- 
do, quita el asterisco del registro o registros 
que estn marcados. 
Para horror un fichero del disco, se utiliza 
el comando DELETE FILE. Pero una vez borra- 
do el fichero, 6ste no se puede volver a recu- 
perar. 
El comando PACK borra definitivamente los 
registros marcados. Adem6s, en caso de que 
los registros sean indexados, rehace el indite 
de manera que corresponda con el fichero de 
datos. 

Almacenamiento en la 
memoria virtual 
y operadores 

Otra caracteristica interesante de DBASE II 
es que podemos almacenar constantes o va- 
riables en la memoria. Esto es, sin escribirlas 
en disco, y que se borran al apagar el orde- 
nador. El programa reserva espacio en la me- 
moria para 64 variables, de una Iongitud m6- 
xima de 254 caracteres cada una, y con una 
Iongitud total m6xima de 1.536 caracteres. Su 
utilidad est6 en almacenar programa. (Por 
ejemplo, la fecha). 
Los comandos para este cometido son STO- 
RE, que guarda la expresi6n y su contenido 
en memoria, y RELEASE que la elimina de la 
memoria. Su uso posterior se hace a trav6s del 
nombre, como si fuera otra variable. 
DBASE II dispone de los operadores aritm6- 
ticos, relacionales y 16gicos comunes (+-* 
/...), pero adem6s incluye uno muy Otil. Es (S). 
Este operador Iocaliza el contenido de una ca- 
dena, o de porte de ella, dentro de otra ca- 
dena. Esto es especialmente Otil para bOsque- 
dos alfanum6ricas. 

6. Otros comandos 

COPY copia (curioso no?) el contenido de 
un fichero en otto. 
REPLACE y CHANGE permiten cambiar el 
contenido de gran nOmero de campos auto- 
m6ticamente. 
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SORT clasifica el fichero a trav6s de un cam- 
po determinado. 
INDEX crea un fichero de claves que se ac- 
tualiza autom6ticamente, y permite Iocalizar 
cualquier registro a trav6s del campo clave de 
manera casi instant6nea. 
FIND utiliza el fichero de claves para Ioca- 
lizar r6pidamente el dato que se pide. 
LOCATE Iocaliza el dato pedido, en un fi- 
chero no indexodo. 
REPORT permite organizar la salida de da- 
tos de una manera determinada. Esto es, pa- 
ra listar informes, etc.., con un formato con- 
creto. Permite poner encabezamientos, fe- 
chas... 
COUNT da el nOmero de registros que cum- 
plen una condici6n dada. 
SUM acumula el valor de campos num6ri- 
cos de registros que cumplan una determina- 
da condici6n. 
TOTAL acumula todos los campos num6ri- 
cos de un fichero, con la particularidad de que 
los resultados los guarda en otro fichero. 

HERRAMIENTA$ 
DE PROGRAMACION 
Los programas de bases de datos menos 
evolucionados, acabarian aqui. Habria que 
comentar su capacidad, potencia y flexibili- 
dad. Pero ste no. En 6ste, una vez visto esto, 
resulta que queda mucho camino por explo- 
rar, y que las posibilidades restantes permiten 
muchas m6s cosas. 
Programar con DBASE II no es m6s (ni me- 
nos...) que crear un fichero, queen vez de da- 
tos, almacena comandos y 6rdenes. 
Con un vocabulario m6s que aceptable, per- 
mite crear menOs, poner mensajes en panta- 
Ila, actualizar un fichero en base a datos de 
otro, y la mayor porte de las necesidades que 
se le puedan ocurrir a alguien dentro del cam- 
po de la gesti6n de ficheros. 
El aprendizaje de esta manera de progra- 
mar no es f6cil, ni r6pido. Pero tampoco es de- 
masiado diffcil. Lo primero que hay que do- 
minor, es Io porte primera. 
Es necesario dominar el manejo de los co- 
mandos anteriores. Despus de eso, habr6 que 
empezar poco a poco, a dominar esta parte. 
Desde luego, hate falta tomarse su tiempo. Es- 
to puede ser una mala noticia para los ansio- 
sos, pero si se emplea la paciencia y se es me- 
ticuloso, los resultados pueden ser muy pro- 
fesionales. 
AI explorar las distintas instrucciones, y do- 
do que muchas son similares en uso al Basic, 
profundizaremos m6s en las que sean exclu- 
sivas o diferentes. 

Y por supuesto, los comandos que se ver6n 
ahora no s61o se puede sino que es necesario 
combinarlos con los que ahora siguen para 
que el programa sea una realidad. 

i. El principio 

Como se ha dicho anteriormente, un progra- 
ma en DBASE II es un fichero compuesto de 
comandos u 6rdenes de DBASE II exclusiva- 
mente. Para su creaci6n y modificaci6n se uti- 
liza el comando MODIFY COMMAND ms el 
nombre que queramos dar al programa. Una 
vez creado, para ejecutarlo habr6 que teclear 
DO hombre del programa, y 6ste empezar6 
a ejecutarse. AI crear el fichero, entra en fun- 
cionamiento un editor de pantalla, tan simple 
como f6cil de utilizar. La manera de moverse 
por el editor estg descrita en el cuadro de co- 
mandos. 
Una vez creado el fichero-programa, 6ste 
se pone en marcha con el mandato DO ms 
el nombre del fichero. 
Desde un programa, a modo de menO, se 
puede Ilamar a otros programas con sucesi- 
vos mandatos DO. Todos estos programas 
pueden estar anidados, de manera que de- 
terminada acci6n en uno de ellos, ponga en 
marcha otro.., y asi hasta 16 programas. Pe- 
ro el retorno debe hacerse siguiendo el cami- 
no inverso. 
Es decir, que del Oltimo hay que pasar al pe- 
nOltimo.., etc. (Esto en caso, repito, de que es- 
tn anidados). Para finalizar estos programas 
hay que utilizar la instrucci6n RETURN o EOF. 

2. Bucles 

Para la toma de decisiones condicionadas, 
DBASE II dispone de varias instrucciones. 
IF, ELSE permite los mismos bucles queen 
Basic, incluyendo expresiones AND, OR, < 
+y=. No hay que porter Then. La 
mayor particularidad de este bucle 
es que la rutina a ejecutar si se cum- 
pie la condici6n, incluye todas las li- 
neas que siguen, a IF, hasta la linea 
que contenga ENDIF. Esto hace que, 
en caso de varios bucles, se necesite 
un ENDIF por cada uno. Estos bucles 
deben necesariamente, estar inclui- 
dos uno dentro totalmente de otro. 
DO WHILE ejecuta una rutina has- 
taque se cumpla la condici6n que se 
le d6. Esta rutina se acaba con END- 
DO, y al igual queen la anterior, de- 
be hacer uno por coda bucle. 

3. Datos del teclado 

Para pedir contestaci6n por el tedado, se 
pueden utilizar tres instrucciones: 
WAIT interrumpe el progr.ama hasta que se 



CONTROL DEL 
Cu  so 

Pulsando CTRL + 
X..: Cursor hacia abajo 
F..: Idem 
A..: Cursor hacia arriba 
E..: Idem 
D..: Mueve el cursor un car6cter 
hacia la derecha 
S..: Mueve el cursor un car6cter 
hacia la izquierda 
V..: Activa y desactiva el modo 
de inserci6n 
G..: Borra el car6cter de debajo 
del cursor 
Borr-..: Idem 
-Borr..: Borra el carcter a la 
izquierda del cursor 
W..: Graba los cambios, y retorna 
a la linea de comando 
Q..: Abandona la tarea en curso 
y retorna sin grabar los 
cambios 
R..: En APPEND, graba un 
registro y pasa al siguiente 
*C..: En EDIT, graba un registro y 
avanza al siguiente 
*U..: Activa y desactiva la marca 
de borrado de registro 
B..: En BROWSE, desplaza el 
registro un campo hacia la 
derecha 
Z..: En BROWSE, desplaza el 
registro un campo hacia la 
izquierda 
ESC.: Retorno a la linea de 
mandatos 

pulse cualquier tecla. La tecla pulsada puede 
ser utilizada en alguna variable. 
INPUT presenta un mensaie en pantalla, y 
espera respuesta. 
Las variables alfanum6ricas deben escribir- 
se entre comillas, porque en caso contrario da 
error. Los nOmeros se teclean sin comillas. 
ACCEPT admite s61o variables alfanum6ri- 
cas, par Io que no es necesario escribirlas en- 
tre comillas. 
READ admite la correcci6n de variables pre- 
sentadas en pantalla par el comando GET. 

4. Presentaci6n 
en pantalla 

El car6cter ( ) se utiliza para situar el cur- 
sor en las coordenadas de pantalla deseadas. 
Es similar al LOCATE del Basic de los CPC. 
SAY presenta un mensaje en pantalla, a par- 
fir de la posici6n del cursor. 
GET sirve para presentar en pantalla el va- 
lor de campos de un registro. Cada 64 veces 
que se use este mandato, hay que hacer 
CLEAR GETS para liberar la memoria destina- 
da a esto, y poder leer nuevos datos. 
ERASE borra la pantalla de texto. 

5. Uso de varios 
ficheros 

Para posibilitar el usa simult6neo de dos fi- 
cheros, estan los comandos SELECT PRIMARY 
y SELECT SECONDARY. De esta manera se 
tienen abiertos y conservando el puntero en 
el registro que interese. Recordemos que USE 
cierra el fichero que haya abierto antes de 
abrir afro. 
El modo de funcionamiento es el siguiente. 
Con SELECT PRIMARY o SELECT SECONDARY 
se selecciona en todo momenta el fichero en 
usa. Si usando el fichero primario hay que re- 
ferirse a una variable del fichero secundario, 
hay que anteponer (S.) al nombre de la va- 
riable, y si es al revs, se antepone (P.). 
Adem6s, se pueden combinar varios o to- 
dos los campos de los dos Ficheros para crear 
un tercero. Esto se usa con el comando JOIN. 
Su funcionamiento es el siguiente. Lee el pri- 
mer registro de la primera base de datos, y 
busca los registros de la segunda base para 
comprobar cu61es cumplen la condici6n im- 
puesta. Estos son copiados en la base final, y 
entonces pasa al segundo registro de la pri- 
mera base, repitiendo el ciclo. Esta arden, se- 
gOn la Iongitud de los ficheros, puede tardar 
un buen rata en completarse. 
UPDATE permite sumar o reemplazar datos 
de dos bases de datos si ambas bases est6n 
clasiFicadas par la misma clave. 

6. Otros comandos 

CLEAR reinicializa DBASE II, borrando to- 
das las variables y cerrando los ficheros. 
RESET indica al Sistema Operativo CP/M un 
cambio de disco. 
* Igual al comando REM de Basic. 
REMARK equivale a la sentencia Print, pre- 
sentando en pantalla el mensaje. 
RENAME cambia de nombre un fichero. Di- 
cho fichero no debe estar abierto. 
QUIT TO... sale de DBASE II, ejecuta la o 
las 6rdenes de CP/M que sigan, y vuelve a re- 
tornar a DBASE II. 

7. Funciones 

DBASE II tambi6n dispone de algunas Fun- 
clones similares alas de Basic. Los par6metros 
que incorporemos alas mismas deben estar 
entre par6ntesis. Estas son las ms interesan- 
tes. 
INT proporciona la parte entera de un nO- 
mero. 
VAL convierte una cadena alfanumrica 
compuesta par nOmeros en una variable nu- 
m6rica. 
STR convierte una variable num6rica en ca- 
dena alfanumrica. 
LEN da la IongituFi de una cadena. 

FILE retorna el valor verdadero si el fiche- 
ro que se indique est6 en el disco. En caso con- 
trario retorna el valor falso. 
TRIM elimina los espacios en blanco de una 
cadena. 
RAN K da el valor decimal del primer car6c- 
ter de una cadena. 
CHR permite utilizar el c6digo ASCII. 
! convierte las letras minOsculas en mayOs- 
cubs. 
$ crea una cadena aJfanumrica compues- 
ta par parte de otra cadena. 
& funci6n de macro sustituci6n. Utilizada an- 
te el nombre de una variable, reemplaza su 
nombre par su valor. La variable tiene que ser 
alfanum6rica. Evita trabajo si dicha variable 
debe ser utilizada con frecuencia. 
similar a INSTR en Basic, devuelve la po- 
sici6n donde est6 contenido el primer car6c- 
ter de una cadena secundaria dentro de una 
cadena primaria. En caso de no estar conte- 
nida en ella, devuelve el valor O. 

8. Ayuda 
y programaci6n 

Esto es alga que se agradece. Desde la 
nea de comandos, se puede usar el comando 
HELP con el nombre de cualquier comando o 
funci6n, yen la pantalla saldr6 una breve ex- 
plicaci6n en ingl6s de su cometido y manera 
de operar. Si hacemos HELP HELP, nos saldr6 
una lista ordenada alfabticamente de todos 
los comandos. 
TECLAS 
,": o reg';rceS'aecampoO 
z e stro anterior_, 
r gmarcaSOS con no 

Dadas las facilidades que da DBASE II, no 
es dificil pensar ejemplos de Io que se puede 
hacer con 61. Una vez que se aprende su ma- 
nejo, y se acostumbra uno a ciertas peculiari- 
dades, se est6 en disposici6n de realizar ese 
programa de control de stocks un poco espe- 
cial que se necesita, o ese control de factura- 
ci6n de empresa, incluyendo IVA, etc. De to- 
das manera, esto no es la panacea universal. 
La programaci6n con DBASE II requiere de un 
cuidadoso planteamiento previo. 
(En otras palabras: L6piz y papel). 
Realmente la estructura de un programa he- 
cho con DBASE II es similar a la del mismo pro- 
grama hecho en Basic, pero mucho mas car- 
to. Donde m6s se aprecia esto, es a la hora 



de codificar el manejo de los ficheros, su cla- 
sificaci6n o indexaci6n y su puesta al dia con 
una linea de comandos, se pueden hacer co- 
sas queen Basic, en el mejor de los casos, Ile- 
varian muchas lineas. No es que se pueda ha- 
car LO MISMO con este programa que con 
el Basic. Pero Io que este programa hate, Io 
hace m6s f6cilmente que el Basic. Y si se tar- 
da en aprender a usarlo, el BASIC tampoco 
se aprende en diez minutos, no. 
En la tara 2 del disco del programa, han 
puesto un gran ejemplo de programa hecho 
con DBASE II. Un control de stocks. Esto pue- 
de ser de gran ayuda a la hora de empezar 
a programar. Es m6s que conveniente estu- 
diarlo junto con las instrucciones. Da una idea 
muy aproximada de Jas posibilidades que tie- 
ne este programa. 

CONCLUSIONES 
FINALES 

Antes de nada, decir que no se han descri- 
to todos los comandos y funciones de DBASE 
II. Esto alargaria el articulo demasiado. Se han 
descrito las posibilidades m6s destacables, pa- 
ra que se puedan dar una idea de qu6 es y 
c6mo funciona este programa. 
La primera conclusi6n es que estamos ante 
algo m6s que un programa de base de datos. 

La tarea que se ha hecho es digna de elogio, 
al menos en cuanto a programaci6n. Sus po- 
sibilidades reales hacen que el rendimiento sa- 
cado tanto al CPC 6128 como al PCW 8256 
sea realmente magnifico. 
Puestos a sacar algOn defectillo, la implan- 
taci6n realizada en el PCW resulta un tanto 
peculiar, pero esto es algo a Io que los due- 
os deben estar acostumbrados. Desde luego, 
por Io menos el funcionamiento de las teclas 
de cursor resulta curioso. Yen ambos orde- 
nadores, CPC y PCW, el manejo combinado 
de CTRL y las teclas no resulta demasiado c6- 
modo al principio, sobre todo teniendo en 
cuenta qua, a veces, la misma combinaci6n de 
teclas en distintas partes del programa produ- 
ce resultados diferentes. El cuadro qua se 
acompaa son las funciones habituales, pero 
no las Onicas. El manual se hace totalmente 

imprescindible para Iograr algo medianamen- 
te detente. 
Y ya que hablamos del manual, el hecho de 
que haya sido traducido no tiene precio. Des- 
de luego que se puede mejorar, sobre todo 
algunas explicaciones que no quedan dema- 
siado claras, pero el resultado conjunto es bue- 
no. Adems, el distribuidor ha sacado una pu- 
blicaci6n bimensual para sus usuarios, dedi- 
cada a informar sobre 6ste y otros productos, 
Io que puede resultar de una gran ayuda. 
En resumen, otro programa que ayuda a 
Amstr(d a mantener esa imagen de orde- 
nador profesional, con la mejor relaci6n ca- 
lidad-precio del mercado inform6tico espaol. 
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irltfoduc=f al lector de una Iorma fCll- 
mente acceslble al sistema opel'ativo y 
al lenguale mlquma dei CPC Propor- 
poalblhdades de aplicacln y prrama- 
cdn de su 
PEEKS y POKES del CPC 44128. 
180 pi¢. P.¥.P. 1.O0,- pts. 

.a tEcnlca y programa¢l(n det Procea-  El LISRO OEL FLOPPY de CPC Io . -- -- .1 clonesiD°mlnarhdslcasCP/M parar lift lalmanaroesde exph-nume. 
dot Z son los lemas de este hbro Es expll to sobre la prmaci0 fi  1 
,mpesc,nd,ble ¢a tos aq os oue ]][ me,an e el floppy 001-1 y la un=ad de [[[l]'  ] III ASCIi. sta la 3pllCi0n de progmas 
sn un Commoe 128. C. MSX  diss incorrada del C /6128 1] III auxd,ares de CP,'M. asi mo .CP.'M 
uotrosor0enadoresquetalanconel -l  paine ohm. un adnhco stdn- I1:: trill interpaa vanzados. da usao 
P,o:,=ooZ0,,oom,. VlgPPI o.,,,,n.,,,nm,,- I¢'::: 111111 e%;J''.M]  
EI*Z= = eve 6R/  pwramac0nconescosc0 op I;;]]] • 
h I m nt men I; h- AMSTRAO C 4 C  y C 
 adodelOOSylosmucsprogmas  :11]1 elZ 
"::'; ....... [JJ mpleto paquole de geshOn e fiche- • ,,i-.] ]-= 'lJ 0 p. P.V,P. 2.,-ps  
ros.  
 El LIb 1 opp 1C. 3 g.   . 
TTOM T .00 plas. -- .  °_  o ' 

2 ;',;o! AMSTRAD 



.J 

SA: , R 

Como cxpeFimetltado 111rct1;4rio CtlJd;.idosal'110111 elllrelado 
an las artes marcialcs, dehes cumplir la misi6n que te ha sido 
etlconlcndada: |'obar el disco que co1 la Jl/fOrlllacJ(l de los re- 
heldes tienc el (]ran I)ictador. 

ROCK'N 
LUCHA 

ROCK'N LHCHA 

ts'l primer juego de lucha libre hecho para ordenador. xlis de 
25 movimientos diferentes te permitirlin hater todo tipo de lla- 
yes: des@ la sujeccian de espaldas hast, la voltereta de hom- 
bros, pasando pot los mismos programadores del legendario 
"Exploding Fist'. 

l 

Entra en el mudo de los samurais. Mantn la calma mientras 
el movimiento y las rutinas de combate te transportan a nive- 
les que nunca pensaste posibles. Experimenta los sorprenden- 
tes efectos del "Triple Scloll" mientras intentas mejorar tus 
tdcnicas de lucha cuerpo a cuerpo, con espada samurai o con 
mil posibilidades mis. 



PING-PON 

La gran sorpresa. Grfi, ficos increibles, movimiento super-ripido. 
podr,s efectuar las mismas jugadas que si tuvieras la paleta en 
tu matzo. 
Bores. rebotes, efectos, de.iadas, saques, cortadas, males... 
es posible con esta maravilla llamada 'Ping-Pong" 

Schneider) 
664 

DISTRIBUIDOR EXCLU' 
ERBE SO 
C/. STA. Eg 
28010  
TFNO, (91) 

DELEGACION 
AVDA. MISIt 
TFNO. (93) 

L'n desafio medieval en tu ordenador. 'rransp(rtate la Edad 
I 
demos- 
,, --" . \ '"" ," , I 
,Media v conviertete en caballero de la Mesa Redonda 
trando'tus habilidades en el torneo. Lucha a esada, ballesta,  , ., .":' ,  " N " % . 
aza, mazas, arco hachas v con todas las armas propias de 
aquella fantstica@poca. "  , • e . '... .   " • . ,. 
, • 
GOES TO HOL ' 
El jueo de los jueos. El que fue numero 1 indiscutible en  
SNctmm y Commodore. ahora disponible pa Amstrad. 
Ntis de 10 jueos difentes se enciern en "Pranke oes to 
ttollywood'.elpro,mamgsofi,inalqueha,asvisto. " ,,  .. "'... ' .. 



,dlVO PARA ESPAfiA 
0FTWARE 
(:IRACIA, 17 - 
IADRID, 
) 447 34 10 

BARCELONA, 
fL, N. ° 10. 
432 07 31 

Toda la emoci6n del film, en tu ordenador. Sintete como 
John Rambo en la jun{41a vietnamita e intenta salvar a tus 
compafieros prisioneros en el campo de ¢oncentraci6n. 

$" ECTRU 

Tu misi6n: vigilar y cuidar el cumplimiento de la ley'que seve 
amenazada pot una terrible banda de delincuentes que hart 
hecho del trfi.fico de narc6ticos su negocio ms rentable. 
Tus medios: un Lotus Turbo Sprit dorado de uno de los mxi- 
mos adelantos tcnicos y con el que deber,.is patrullar por ca- 
lies y avenidas. 

Ultimate nos ofrece para Amstrad, usando su t6cnic. Fil &- 
Uon, =Gun-Fright", el juego en el que el lejano oeste es el pro- 
tagonista. 
Ponte en el papel de Quikdraw. el sheriff que piensa hbrar la 
ciudad de todos, los pistoleros a lomos de su buen caballo Pan- 
to. 



UM • 05 
SIN R PETICION 
Realizado por el lector 
Rafael S6nchez AIc6n 

I programa, una peque- 
a subrutina, consiste en seleccionar N n0meros 
al azor y sin repetici6n, de un margen de nOme- 
ros dados por C. 
Las lineas 10-60 identifican el programa. 
La Iinea 80 pide el nOmero mayor de entre los 
que saldr6n los seleccionados. (por ejemplo, en 
la Loteria Primitiva (49), en el Bingo (90). 
La Iinea 90 pide cu6ntos n0meros se quieren se- 
leccionar. En el caso anterior 6 (para la Loteria 
Primitiva). 
La linea 100 dimensiona la Matriz de los n0me- 
rosa seleccionar. 
Las lineas 120-250 ejecutan la selecci6n y la im- 
primen. 
Hay dos Bucles para generar sonidos. Lineas 
170-210 y 220-230. 

I0 '############################ 
?0 "## SE!.PCC."ION DF NLIMFROS ## 
3(] '## SIN REF'ETICION ## 
40 ' ## ## 
5r) ## 1986 PQR RAFA S. ALCON ## 
60 ' ########################### 
70 MODE 
80 INPL.I] "ntr-,duzc'a ] a cant.dad de 
ltmeros que va a emp i ear ", c 
90 L OCATE ]8: INPUT"introduzca 
antidad de nmeras que va a selecci 
00 DIM a(n) 
110 CI,S 
,t20 FOR x=C1 TO 
130 a(x)=INT(RND() -] 
t4C FOR m=t TO x 
150 IF a(x)<>a(m--]) THEN NEXT m 
E 130 
170 FOR =1 TO 9;0 

80 ca=INT(RhlD)+I 
190 so=INT(RNDSC('))+] :du=INT(RNDIO 
)+I 
200 SOLIND 
710 NEXT 
220 FOR q=60 TO lc STEF'- 
23A SOIJND 
240 PRINT x+]"NUMERO GENERADO=>"a 
(x) 
250 NF'X 

CON 

LE 
D 
TRE 

DES OS 

I 
I 
I 
II 
III 

OS 

16 ICoHoaaY AM$1"RAD . 



' • rcado comun 

Con el objeto de fomentar los relaciones entre los 
usuarios de AMSTRAD, MERCADO COMUN te ofrece sus 
p6ginas para publicar los pequeos anuncios que 
relacionados con el ordenador y su mundo se ajusten al 
formato indicado a continuaci6n. 
En MERCADO COMUN tienen cabida, anuncios de 
ventas, compras, clubs de usuarios de AMSTRAD, 
programadores, yen general cualquier close de anuncio 
que pueda servir de utilidad a nuestros lectores. 
Envianos tu anuncio mecanografiado a: HOBBY PRESS, 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
. iABSTENERSE PIRATAS! 

Vendo programa de Contabilidad General para 
Amstrad con disco. Totolmente original. 
Prestaciones profesionales. Totalmente modificable. 
Adaptable a cualquier impresora paralelo. 450 
cuentas auxiliares, 99 cuentas mayores, 6.900 
apuntes por disco. Sin limite de apuntes. Josd Luis 
Muoz Trapero. Los Torres. Plaza Cejilla, 2 - 2. ° D. 
Jerez de la Frontera (Cddiz). 
Tel (956) 32 68 95 - 31 24 58. 
Programador y usuario de un Amstrad, 
desearia contactar con usuarios de cualquier modelo 
Arnstrad, para intercambio de cualquier tipo de 
programas. Realizo programas a medida por 
encago (Programas de gesti6n). Ponerse en 
contacto con: Miguel Angel Fanega L6pez de la 
Franca. C! Reyes Cat61icos, 1 - 1.° A. Daimiel (C. 
Real) Tel. (926) 85 09 08. 
eeeeeeeeeeeeeeeeeeeeeeeeeeee 
Se intercambian juegos para el Amstrad 
CPC-464 con usuarios de Barcelona o provincia. 
LLamar de 15,30 a 17 h o de 21 a 22 hal Tel. 
212 42 84. Preguntar por Iv6n. 
Cambio ordenador Amstrad CPC-464 monitor 
color en perfecto estado, mds 30 programas 
comerciales, por Amstrad CPC-664 monitor color 
pagando diferencia justa. Llamar al Tel. (93) 
212 42 84 de Barcelona. Preguntor por Iv6n. 
(Llamar de 21,30 a 22,00 h). 
OOOOOO0OO00OOOOOO.OOOOOOOOOOO 
Desearia contactar con usuarios del 
Amstrad CPC-6128, en C6diz y su provincia. 
Interesados escribir a: Silvia Rodriguez Fern6ndez. 
Avda. Ram6n de Carranza, 22 - P. 6. ° D. 11006 
C6diz. Tel. 28 72 80. 

4 2' 7318 

A usted, minorista, y con s61o marcar este 
telefono, le concedemos Io que siempre ha 
esperado de su mayorista informtico. 

Todas las marca$, Amstrad, Spectrum, 
Commodore... para que con una sola 
Ilamada, usted tenga todo Io que 
necesita. 

:2 Flapidez en el servi¢io. Le entregamos 
su pedido en 24 horas, sin demoras y 
en cualquier punto de Espafia. 

3 Trato directo. Mantenemos un contacto 
contJnuo con usted, nos preocupamos 
pot sus problemas y le ayudamos a 
solucionarlos. Queremos que usted sea 
algo mAs que un cliente. 

Si es esto Io que pide a su mayorista, 
LLAMENOS 

LIETRI#UCION 

INTROLINE, s.4 

CUMPLIMOS 
SUS DESEOS 



Dado que la gran mayorla de usuarios de ordenadores 
Amstrad; poseen unidad de disco, hemos creido 
conveniente realizar un programa copiador que 
permita traspasar los programas de cinta a disco. 
Adem6s de sta, tambin posee los opciones de copiar 
de cinta a cinta y de disco a cinta. 

I programa est6 
compuesto por un bloque de Basic y 
otro de c6digo m6quina. El p-imero 
se encarga de presentar el men0 de 
opciones en pantalla y abrir las sali- 
das para disco o cassette. El bloque 
en c6digo m6quina, es el que reali- 
za la funci6n de traspasar los pro- 
gramas. 
Este 01timo esl6 compuesto por las 
rutinas de INPUT, de LOAD y SAVE. 
La primera de elias es la encargada 
de pedir los nombres de los progra- 
masque queremos copiary el nom- 
bre con el que queremos salvar la co- 
pia de dicho programa. Las otras dos 
rutinas realizan la funci6n que su 
nombre indica. 
A continuaci6n, explicaremos 
tenidamente corn6 manejar cada 
una de las opciones de que consta el 
programa. 
Cuando eiecutemos el programa 
aparecer6 el men0 de opciones en 
pantalla, para elegir cualquiera de 
elias deberemos pulsar el n0mero co- 
rrespondiente a dicha opci6n. 
Si pulsamos la tecla <1 , es decir si 
deseemos pasar un programa de cin- 
ta a cinta, en primer lugar, se nos pe- 
dirc el nombre del programa que de- 
seamos copiar, en caso de que de- 
seamos pasar el primer programa 
que se encuentre en la cinta, pulsa- 
remos la tecla ENTER. 
Seguidamente nos pedir6 el nom- 
bre con el cual deseamos salvar di- 
cho programa, por Io que debere- 
mos indicarle el nombre con el que 
deseemos almacenarlo en la cinta. 

I8 /COHOY ASTRAD 

Una vez hecho esto, aparecer6 en 
pantalla el mensaje siguiente: 
Press PLAY then any key 
por Io que debemos colocar en el 
cassette la cinta con el programa ori- 
ginal, y a continuaci6n pulsar cual- 
quier tecla. 
Una vez que se hayan cargado los 
primeros bloques de programa, apa- 
recer6 el mensaje: 
Press RFC and PLAY then any key 
por Io que deberemos sacar la cinta 
original del cassette y colocar en 61 
la cinta en la que deseamos copiar 
dicho programa. Esta operaci6n de- 
beremos realizarla tantas veces co- 
mo nos pida el programa. 
Una vez finalizada la capia, se bo- 
rrar6 la ventana de informaci6n, y 
aparecer6 en pantalla Onicamente el 
men0 principal, con Io cual podre- 
mos elegir de nuevo cualquiera de 
las opciones que el programa nos 
ofrece. 

Cargar en ci.n.ta 
y salvar en dnsco 

Si deseamos elegir la segunda op- 
ci6n, es decir, cargar de cinta y sal- 
var en disco, se nos pedir6 tambi6n 
el nombre del programa que quere- 
mos cargar y el nombre con el que 
Io queremos copiar. 
A continuaci6a aparecer6 el si- 
guiente mensaje: 
Inserta el disco destino y pulsa una 
tecla. 
Con Io que deberemos colocar en 
la unidad de disco, el diskette en el 
cual queremos copiar el programa. 
Cuando hayamos realizado esta 
operaci6n, deberemos pulsar cual- 
quier tecla. 
Seguidamente aparecer el men- 
saje de carga del casseffe con Io cual 

I IIll 

deberemos colocar en el casselte la 
cinta original y a continuaci6n pulsar 
un tecla. 
A partir de este momento, pode- 
mos dejar el disco destino en la uni- 
dad, y la cinta en el cassette y pulsar 
cualquier tecla cada vez que el pro- 
grama nos Io indique. 
La copia finalizar6 cuando se bo- 
rre la pantalla inferior de informa- 
ci6n, y aparezca en pantalla 0nica- 
mente el men0 de opciones. 
Si elegimos la tercera opci6n, es 
decir, si deseamos copiar de disco a 
cinta, deberemos colocar el disco ori- 
ginal en la unidad e insertar la cinta 
donde deseemos oBtener la copia en 
el cassette. Una vez hecho eslo indi- 
caremos el nombre del programa 
que queremos copiar y el nombre 
con el que queremos salvar la copia. 
Seguidamente aparecer6 en pan- 
talla el siguiente mensaje: 
INSERTA DISCO FUENTE Y PULSA 
UNA TECLA 
con Io que si hemos realizado las 
operaciones indicadas anteriormen- 
te, deberemos pulsar una tecla cuan- 
do el programa nos Io indique. 
Una vez finalizada la copia, se bo- 
rrar6 la ventana de informaci6n y 
aparecerc Onicamente el menO prin- 
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cipal con Io que podremos seleccio- 
nar cualquier otra operaci6n. 
Dicho esto, ya estamos en condi- 
ci6n de utilizar el programa y hacer 
todas las copias de seguridad que 
deseemos. 
Explicaremos a continuaci6n c6mo 
debe procederse para cargar correc- 
tamente dicho programa. 

@ - C/JIQ - DISCO 

P"-ss PLaY hen -n ke : 
Fn rimer Iar teclearmos el lis- 
tado n]mero ], que es el prrama 
Bsic que cvntrola el fun¢invmien- 
.to de la rutina en c6digo m6quina, 
y que es el encargado de presentar 
el menO en pantalla. 
Una vez hecho esto y comproba- 
do que no existe ningOn error, Io gra- 
baremos en cinta o disco de la si- 
guiente forma: 
SAVE" COPIADOR 

Seguidamente teclearemos el pro- 
grama cargador en Basic de la ruti- 
na de c6digo m6quina. 
Una vez tecleado Io ejecutaremos 
con la orden RUN, y una vez fina- 
lizado si observamos en pantalla el 
mensaje siguiente: 
ERROR EN DATAS 
procederemos a revisar las lineas 
<<DATA del programa hasta que di- 
cho mensaje no aparezca al ejecu- 
tarlo. 
Una vez tecleado correctamente el 
programa procederemos a salvarlo 
en cinta o disco, a continuaci6n del 
programa Basic salvado anterior- 
mente. 
Para salvar correctamente la ruti- 
na en c6digo m6quina creada por el 
programa anterior, deberemos ha- 
cer Io siguiente: 
SAVE" COPY", B,&AI, &25E 
con Io cual tendremos cargado en 
cinta o disco el programa copiador. 
Para poder ejecutarlo Onicamente 
tendremos cjue hacer Io siguiente: 
RUN" COPIADOR 
y una vez cargado estar6 listo para 
efectuar cuantas copias deseemos. 

1O FOR N &AgOg TO &A25D 
20 REA0 A:SOMA=SUMA*A 
30 POKE N,A 
40 NEXT 
50 IF SLIA<>62371 THEN PRINT "ERROR 
EN DATAS" 
60 DATA 205.3.187.285,108.187.285 
78 DATA 13,168,285,2521628133 
88 DATA 239.161.285.184,1&I,33.1 
98 DATA |6.205,74.160.17223.161 
188 DATA 285.217.168.58.235.168.58 
118 DATA 222.161285.196|8,28518 
8 
128 DATA 187.33,254.11.285.184.16! 
138 DATA 33.1,16.28574.168,17 
14B DATA 286.161,285.217.168.58.235 
158 DATA 1685fl28516|.285.196,168 
168 DATA 285188.187.281175.58.235 
170 DATA 168.17236.168205117,187 
180 DATA 205.226160.62o95285,98 
198 DATA 187285.24187.71,254.13 
88 DATA 288254.127,40.4125431 
218 DATA 56,241.254.123,48.23758 
228 DATA 235,168.25.48.48,23862 
238 DATA 8.285.98.187,128285.98 
248 DATA 1876295.8598187.58 
258 DATA 235,1686858.235.168128 
268 DATA 18,1924.284.58.235,168 
278 DATA 5,040,I77,61,58.235 
88 DATA 168.7,62.3218.62.8 
78 DATA 2858.187,6232,28598 
388 DATA 187,6.828590.1876 
318 DATA 0.285,98,187,62,32,285 
328 DATA 98,187.62.8,285.98.187 
38 DATA 62.95.205.98187,24.152 
348 DATA 6,8285,90.187,6232 
58 DATA 285,98.187,6,16.33,236 
368 DATA 168.54.32.35,16,251.281 
378 DATA 33.236.168,1168,27 
388 DATA 176.2011.136,111,128 
398 DATA 17,32,251,201.80,0 
488 DATA 8.8,88,88.8 
410 DATA B,8.8.8,8,88 
42 DATA 58.92.162.254.1,32.9 
438 DATA 33.13,162285,184,161,285 
44 DATA 4.187,33.285161,78,35 
458 DATA 17,159,81,205,148I80.28 
468 DATA 166,161,218171,161.229.58 
478 DATA 93.162254,1.32,9.33 
480 DATA 53.162285,184.161,85,24 
490 DATA 18733.22,161.78,35,17 
58 DATA 159,47,285.119.180,32.3 
518 DATA 225,24.184,56,3225,24 
58 DATA 187229,221,225.253.225.22 
I 
538 DATA 12618,253,119,18,221.126 
540 DATA 21,53.119.21.221,12622 
55 DATA 253.119,22221,126.24.253 
568 DATA 119.24.221.126,25.253I19 
578 DATA 2522,126.26.253.119.26 
508 DATA 221,126.27,253,119.27.205 
59 DATA 137188,4047,48,16,285 
688 DATA 128.188.40.48.48,9285 
618 DATA 14918848.33.48,4.24 
628 DATA 233.58.92,162.254.132 
638 DATA 9.3313,162,205,14,161 
648 DATA 05,24107205.143.188.48 
658 DATA 8,48.112fl5122.188.48 
668 DATA 11,281,33.197161.24,13 
678 DATA 33,199,161,248.33,199 
680 DATA 16124333199161229 
698 DATA 205,188.187.225.7835.126 
78 DATA 35285.98187.16249,201 
710 DATA 569.82.82.79,,8 
720 DATA 0,0,.8,88 
738 DATA 88.8,8.08.8 
748 DATA 0880,8,8,0 
758 DATA 08.B8,0.8,8 
768 DATA 8,8,8.B.8,1478 
770 DATA 79766,82.69.32.40 

788 DATA 76,79,65,68,41,58,14 
798 DATA 78,79,77,66,82,6932 
888 DATA 4,83,65,86,69,41,58 
818 DATA 3,7378,83,69,82,84 
828 DATA 65,32,68,73,836779 
838 DATA 32,6,68384,7378 
48 OATA 793289,2,88,85,76 
858 DATA 83,65,2,857865,32 
868 DATA 8469,67,76,65,38,73 
87 DAA 78,83,69,82,84,65,32 
888 0ATA 68,73,83,6779,3278 
898 DATA 85,69,78,8469,32,89 
988 DATA 3288,8576,83,65,3 
918 DATA 85,78,65,32,84,6967 
928 DATA 7665,8,0,88,8 



PROGRAMA COPION 

18 NODE I:INK 0,13:INK 1,8:BORDER i 
3:CLS 
28 LOAD'COPY' ,&A888 
38 LOCATE 18,7:PRINT "I - CINTA - C 
INTA" 
48 LOCATE 18,9:PRINT "2 - CINTA - 0 
ISCO' 
58 LOCATE 18,11:PRINT '3 - DISCO - 
CINTA" 
48 IF ]NKEY(64) 8 THEN ITAPE:GOT0 ! 
78 IF INKEY(65)=8 THEN ITAPE.IN:IDI 
SC.0UT:OOSUB 
88 IF INKEY(57) 0 THEN IDISC.IN:ITA 
PE.0UT:GOSUB 12e:GOT0 
188 WIN00 #e,1,88,28,25 
118 CALL 
128 GOSUB 198 
130 CLS #8 
148 OOT0 68 
158 POKE &A25C,I 
168 RETURN 
178 POKE &A25D1 
188 RETURN 
198 POKE &A25C,8:POKE &A25D,8:RETUR 
N 

LI TADe DE EN A"BL'De 

886C 50 CLS: EQU #BB6C 
B875 60 C00RD: EQU #8875 
885A ?0 IHPRI: EQU #885A 
8818 80 WKEY: EQU #8818 
A837 IICEA| 288 
A030 AEBA0 300 
A4B 32EBA8 368 LD (LONG),A 
A065 2829 470 JR ,OELET 
A7 3E08 558 LD A,8 

CALL P_ERR0 
CALL IHPUT 
CALL TSASP 
LO A(LONG> 
L (NAHEL),A 
CALL 80RRA 
CALL CLS 
CALL P ERR0 
LD 
CALL INPUT 

A081 CDSASB 680 CALL IHPR! 
A884 3AEBA0 610 LD A,(LONG) 
A087 3C 628 INC A 
A88 32bBA 630 LD (L0G).A 

H¢¢oft GENA3.| A cembler, Page 4. 

AIC8 4552524F 2818 DEFH "ERROR 
AICD 2028 ttAHES: DEFS 17 
AIDE 2030 NAHEL: OEFS 17 
AIEF 0E' 2840 TXTL: DEFB 14 
AIF8 4E4FdD42 2850 
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a)jkk./ . Compila, or C Compilador Pasca KNIFE 

Versi6n completa del  
 famoso C-Hisoft para CP/M. 
Capacidades de E/S, ficheros 
aleatorios y modos de accso 
binario y ASCII. Incluye 

-.-//D[V editor ED 80 compatible 
PAC 0 WORDSTAR. MODULA-2 
: Ensambladorldes 15.000 Comp Modula-2 
''ED80: Editor Configurable ptas. Implementaci6n total del 
GEN 80: Macros, inclusi6n en lenguaje MODULA-2 para 
disco, ensambladorcondicional, CP/M. Comp.ilador en un 
manipu[aci6n bit a bit. MON 80: tnico paso, listo para ser 
Monitor y debugger, puntos linkado. 
de ruptura y presentaci6n 
de memoria. 
_. ., POLYPRINT 
 /5.000 Multitipos 19.900 
'/ otas Transforme su impresora 
tas. 
 en una imprenta. Permite la 
/ impresi6n en 8 tipos distintos 
 de letras; configurable para 
- cualquier impresora. 

Editor sectores 

Especial para Z-80. Deja el 
programa fuente en un  
programa directamente 
ejecutable. Incluye ED 80, 
editor compatible con 
WORDSTAR. 
TORCH 
15.000 Tutor de CP/M 
otas. Disefiado especificamente 
para AMSTRAD. Incluye 
THE WAND, creador de men0s 
de programas. 

POLY 
TYPEFACES 
Multitipos 7.900 
Affade a la potencia del otas. 
programa POLYPRINT 8 

juegos adicionales de impresi6n 
a los ya existentes. 

Permite trabajo directo 
sobre disco, bien en 
hexadecimal o ASCII, recuperar 
ficheros perdidos o borrados, 
aherar y/o proteger 
directorios, todo bajo 
AMSDOS y CP/M. 
7.900 
ptas. 

WRITE 
HAND MAN 
Sidekick en CP/M 
Residente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
telfonos, Calendario, 
Directorios, etc... 

lNUeva versi6n mejorada y ptas. Curso de iniciaci6n a los nf:c Conozca a rondo las I tas. 
compatible con nuestra  teclados, recomendado para I'"''?" posibi[idades del teclado, 
tableta GRAFPAD II: Gran  personas no acostumbradas a escribiendo con sus diez dedos 
cidad en grgficos. su uso. . en lugar de s6[o dos. 
tas _los 4 [untos . v 9. 
" 23.8 tas. t no tas. 
[aN incluido x 

DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener tos programas, puede dirigirse a: 
Ofites Avda. Isabel ,,. 16-8  
Tels. 455544 - 455533 
I fo 
n rm ca 
CONDICIONES ESPECIALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAfiA 

DRAUGHTS- 
MAN II 

'TYPING TWO 
RASH COURSE FINGERS 
6.900 Inicia a teclear 7.000 Curso mecano:rlifico 3.000 

POLYPLOT POLYMAIL CATALOG 
er "' 11 900 Mailing l 9 900 Clasificador 11.900  
ire realizar gr:licos re Sencillo sistema de '" .,.,,., Asigna a cada disco un ,I.,.,S '  
sofisticados en su impresora. I J' MAIL-MERGE Id6neo para ]tcl:>, nmero de serie y adem,s I t 
Grificos de pastel, histogramas producir circulates. Inc[uye indexa y cataloga los ficheros 
comparativo's, grficos de lineas, e.ditor. Permite la re..alizaci6n  en ese disco. 
ImP, genes de 980 PIXELS de de etiquetas autoadhesivas." I  
ensidad. FIRST  
MULTI-TEXT STEPS  MASTER 
11.900 M6dulo de textos "'10.900 Tutor de Newword  8.900 LOCOSCRIPT 
Dtas, M6dulo de textos, Dtas. Explore las enormes  Dtas Dos cintas audio con 
"'- "xx' preparado para ser r capacidades del procesador "- ° instrucciones claras para 
/  empleado con nuestro lpiz de textos NEWWORD; g.ui.ado x, aprendizaje y apoyo al manual 
 "6ptico ESP o con las teclas de desde los fundamentos del. del tratamiento de textos 
cursor, proceso de textos. LOSOSCRIPT. 



AMSTRAD CPC-4,' ' MSTRA 

SERIE CPC 

ORDENA 

AMSTRAD CPC 464 

AMSTRAD CPC 6128 

UNIDAD CENTRAL.-'MEMORIAS 
Microprocesador Z80A- 64K RAM 
ampliables - 32K ROM ampliables 
TECLADO, Teclado profesionil con 
74 te.g!as en 3 bloques - Hasta3eclas 
programables - Teclado redefinib] 
PANTALLA * Monitor RGB verde (.12',1 
color (14") 
Colores 
Puntos  640  2 60  
Se peden definir hasta 8 ventanas de 
texto y 1 de grficos • SONWO 
3 cales de 8 octavas moduladas 
indepedientem@nte - Alfavoz m-rno 
regulable - Salida estereo, BSIC 
Locomoave BSIC ampliado en ROM- 
Incluye los tom.dos AER y EVERY 
para control de inepciones 

CASSETTE * Cassette incorporada con 
velocidd"de grabacin (1 6 2 Kbaudios 
controlada desde Basic. CONECTORES 
• Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, salida . 
esfreo, joystick, lpiz ptico, etc. -. 
. SUMINISTRO. Ordenador con monitor 
,erdegtol"ol:,- 8 cassettes con 
programa:. L'ibro 'Ouia de Reibrencia 
BASIC pafa el Dmgramor" Manual en 
castellano- afantia Ofidal AMSTRAD 
ESPAA. 

TODO POR]59.900 Pts. (monitor verde! 
90.900 Pts. (monitor color) 

UNreAD bE DISC(, Unidad 
!ncorporada para disco de 3" con 1801( 
or tara  SISTEMA$ OPERATIVOS 
, AMSDOS, CP/M 2,2, CP/M PlUs (3.0) 
* CONECTOR, Bus PCB mulfiuso, 
paralelo Centronics, cassette exterior, 
2? Undad de Dis, salida est&reo, 
joysticks, lpiz 6ptico, etc, 
vr& o dol - Disco Con CPM 2,2 y 
lenguaje DR, LOGO- Disco on CP M 
Plus y utilidades - Disco con 6 prograa 
de obsequio - Manual en castelan 
Oanta Oficial AMSTRAD ESPAA. 
TOBO POR  



I.,CW.8256 

AMSTRAD CPC- 612: 

AMSTRAD PCW 8256 

UIIDAD CL'II'RAL. MEMORIAS ... 
, Microprocesador 7.,80A-- 856K RAM de 
las que l12K se ufilian coo dco RAM 
, TECDO, Teclado profesi6n,n 
stellano (fi, acente...) de 82 tecla 
 PANTAL, Monitor verde de. alta 
resoluci&n - 90 columnas x 32 lneas de " 
texto  IDAD DE DISCO  Disco de 
3" y 173K pot cara, Opcionalmente, 
2.Unidad de Disco de 1 Mbyte integrle 
, SISTA OPETIVO 
e Digital Research, IMPRRA, -- .,' 
AIta calidad (NLQ) a 20 c.p.s. - Calidad 
tdar a  c,p,s, - 
b sueas - Alineacin automti 
N[-Cara teres norales, 
ompn ,dos "expAndid0s, conol del 
paso.dIeta, no?mal, rsiva, negrita, " .' 
subindices sdperindices, subrayado, etc). 
 OPCIOE  Kit'de 'pliaci6n a 
512K M y 2.  Unidad de Discq 
rnteffaCe Sefie RS 232C y paralelo 

Centronics, SUMINISTRO, Ordenado 
completo con tedado', pantalla,Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP M 
• ..,, ! s, Mallard, BASIC, DR.LOOO ydiversas 
'fl'llidade's • Maales en castellano - 
Oaranfia Ofidal 
TODO POR 129,900 Pts. 

Los ms prestigiosos paquetes de 
Software Profesional, en formato 
AMSTRAD... a "precios AMSTRAD" 

E: st lamblenl.:verslon P '.' : . con 
SIK IAM y']a 2/Unidad de Disco de 
] Mbyte incoorada PVP. 69.900 Pts. 
* El PCW 8256 puede ulizarse com0 
einal yen comunicaciones. 
E IV,A-,no"est incluido en los predos, 
OTA: Es mU, pote vefificar la ganfl. el 
aparato ya que Io S PA puede 
arlizar[e la ordeada repaci6 y sobre tod 
mateAales de repuesto oficiales (Monitor, 
ordenador, ssee o unidades de discos), 
A del M :, 9, T. 433 45 48 • 433 48 76. 
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El mundo de Sweevo se encuentra 
emplazado en las profundidades de un 

templo sagrad, o, en el cual los peligros y 
extrao$ fenomenos que nos aguardan, 

s61o pueden ser descubiertos por un 
intrpido explorador. 

odo comenz6 
cuando Sweevo, un apuesto joven de 
alta alcurnia, decidi6 emprender su 
Oltima y m6s ambiciosa expedici6n al 
antiguo Egipto. 
Dada su gran afici6n alas expedi- 
ciones, no pudo resistir la oportuni- 
dad de visitar las milenarias construc- 
clones de Abu Simbel. 
En su empeo por descubrir nue- 
vas vias y c6maras secretas, tiene la 
fortuna de encontrar una estancia 
oculta, hasta la cual no habia con- 
seguido Ilegar ningOn explorador an- 
terior. 

, $ 

El aspecto de la cdmara es de Io 
m6s sencillo, no conteniendo tesoros 
ni piezas de gran valor, la sala est6 
totalmente vacia y aparentemente, 
aunque inexplorada, no contiene na- 
da interesante. 
Tras un reconocimiento mcs pro- 
fundo y fij6ndose especialmente en 
una de las paredes laterales, descu- 
bre unas inscripciones jeroglificas 
que desentraan los secretos de la 
c6mara en la que nos encontramos. 
La interpretaci6n de las inscripcio- 
nes no es f6cil, pero nuestro hombre, 
como aficionado arque61ogo que es, 
consigue descifrarlas no sin esfuerzo. 

El mensaie es el siguiente: 
En esta c6mara, se encuentra la 
entrada al mundo extracorp6reo del 
emperador Ramses III, quien consi- 
ga entrar en 61 podr6 encontrar ri- 
quezas que colmarian la ambici6n de 
cualquier mortal. La entrada de es- 
te mundo, se encuentra bajo una Io- 
sa de esta c6mara, situada a veinte 
pasos al este del lugar sealado en 
esta inscripci6n: entrar tiene un pre- 
cio. 
Intrigado por la parte final del 
mensaje y Ilevado por su espiritu 
aventurero, Sweevo no Io duda un 
instante y se pone a la bOsqueda de 
la Iosa, la cual no tarda en encon- 
trar, levant6ndola con gran esfuer- 
ZO. 
Una luz con vida propia sale de la 
porci6n de suelo que cubria la Iosa, 
ahora todo est en las manos de 
Sweevo, la inscripci6n ha consegui- 
do intrigarle, pero a la vez el miedo 
a Io desconocido le aconseja pruden- 
cia. 
Solamente unos minutos de con- 
templaci6n de la extraa luz que sa- 
le del suelo, le hacen dirigirse irreme- 
diablemente hacia el hueco y dejar- 
se caer por 61. 
La caida es r6pida y Sweevo se ve 
conducido a las profundidades del 
templo sagrado, en este mundo de 
ultratumba, extraos moradores y vi- 
siones aterradoras nos aguardan. 
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Recorrer el nOmero desconocido de 
c6maras que Io integran, es sin du- 
da la aventura m6s excitante y peli- 
grosa para cualquier mortal. Swee- 
vo's world es un programa de los de 
¢¢mapa y a buscan. 
Cada nueva pantalla tiene su es- 
pecial significaci6n y mediante ella 
podernos pasar a otras diferentes en 
las cuales encontrarernos toda clase 
de cosas. 

AI principo del juego podemos 
eiegir la zona de salida, ofreci6ndo- 
nos cuatro posibilidades; The first cut, 
Dead centre, Waiting room y Fruit 
salad. 
En cada una de las pantallas que 
recorremos nos aguardan trampas y 
extrafios fen6rnenos; dedos gigan- 
tescos que surgen del suelo, Iosas 
rn6viles, cr6neos de enorrne tarnafio, 
16pidas, seres hostiles y frutas de 
rnostruosas dirnensiones. 
En deterrninadas habitaciones po- 
dernos recoger objetos que nos ser6n 
de utilidad en otras pantallas, eleva- 
dores y dernRs artilugios nos permi- 
tir6n Ilegar a los que no podamos al- 
canzar pot nuestros propios rnedios. 
Existen pasos que nos perrniten pa- 
sat de una pantalla a otra de distin- 
to nivel; ciertas baldosas del suelo al 
ser pisadas nos catapultan hacia ni- 
veles superiores, mientras queen 
otras zonas hay huecos en el suelo 
que nos perrniten pasar al nivel infe- 
rior. Nuestro objetivo en el juego es 
recorrer el rnayor ngmero de cRma- 
ras posible, consiguiendo en elias los 
objetos que hacen aumentar nuestra 
puntuaci6n. AI final de cada partida 
aparecer6 una relaci6n del tanto por 
ciento de la aventura resuelto y de 
los distintos objetos y elernentos hos- 
tiles eliminados. 
Como parte irnportante del juego, 
debemos destacar la realizaci6n de 
los grRficos. 
La construcci6n de los rnismos se 
ha hecho, buscando una perspecti- 
va plana tridirnensional (del tipo 
Knight Lore), en la cual nuestro hom- 
bre se rnueve en las tres direcciones 

espaciales posibles, permitiendo 
cualquier rnovirniento. 
El dibujo de los distintos elementos 
que forman cada pantalla, est6 rea- 
lizado con una t6cnica impecable, 
consiguiendo unos buenos efectos vi- 
suales; cabe destacar los gr6ficos de 
las frutas gigantescas y las barras de 
energia que sustentan pesas de ace- 
ro de 1.000 kg. 
El juego est6 realizado en el mo- 
do de pantalla 1, que si bien no per- 
rnite una gran riqueza de colorido, 
solarnente se pueden tener en pan- 
talla cuatro colores sirnultRnearnen- 
te, si permite una definici6n mayor, 
al rnanejar unos puntos mrs peque- 
fios. 
Cosa que ayuda en gran rnanera 
a conseguir unos grRficos mrs deft- 
nidos y precisos que los que tienen 
los juegos realizados en el rnodo 0 
de diecis6is colores. 
Una aventura de larga duraci6n 
con sorpresas y peligros en cada 
pantalla, para la cual los rnapas y el 
af6n de entrar en nuevas cRrnaras 
son pieza clave del 6xito. 



DE$CUBRAMOS ALGUNO$ 
CARA CTERE$ REALES 

Hemos vista, par el momenta, que hay dos formas de 
hacer que aparezca en la pantalla cualquier tipo de 
informaci6n. Utilizamos el cursor de textos para 
escribir car6cteres alfanumricos y el de gr6ficos para 
dibujar y trazar lineas. 

I1 utilizar cualquiera 
de estos mtodos para escribir alga en la pan- 
talla obtenemos un resultado final que concier- 
neal hardware del ordenador: el cambio 
de color de un n0mero de puntos o pixels den- 
fro de la pantalla. 
Dependiendo de la combinaci6n particular 
de los puntos seleccionados, esperamos encon- 
trar una forma reconocible, si escribimos un 
car6cter tal coma la letra A o dibujamos una 
figura con el cursor de gr6ficos, semejante a 
un tri6ngulo o un circulo. 
En este articulo volveremos a hablar sabre 
el usa del cursor de textos y examinaresmos 
alguno de los muchos caracteres que podemos 
escribir en la pantalla. Adems vamos a inten- 
tar ver la manera de construirlos. 
Empecemos inicializando --resetean- 
do-- el ordenador. Ahora le tenemos ya dis- 
puesto en modo comando, y si pulsamos una 
tecla aparecer6 en la pantalla un determina- 
do car6cter, colocado en el cursos de textos. 
Pulsamos la letra A y, par supuesto, apare- 
cer6 una A. Pero si miramos el car6cter con 
atenci6n veremos claramente que est6 forma- 
do par una combinaci6n de puntos. Podria- 
mos reproducir la letra A utilizando el coman- 
do PLOT, siempre y cuando sepamos dar con 
la combinaci6n correcta de puntos a dibujar. 
El programa I muestra c6mo puede trazar- 
se el car6cter punto a punto. Observe que pri- 
mero escribimos la letra A con la linea 40 y 
luego dibujamos una serie de puntos de, tam- 
bin, dicha letra. 
La linea 90 lee las coordenadas x e y de las 
instrucciones DATA de las lineas 120 a 180. 
Par media de la instrucci6n PLOTR consegui- 
mos ir hacienda un trazado relativo depen- 
diendo de las coordenadas del punto dibuja- 
do anteriormente. Los caracteres producidos 
son idnticos, pero es mucho m6s f6cil escri- 
birlo que representarlo punto a punto. 
jlmagine Io que puede ocurrir si par algu- 
na circunstancia le toca trazar con puntos ca- 
da una de las letras, n0meros o signos de pun- 
tuaci6n! El hecho de reproducir un pequeo 
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mensaje supondria una considerable cantidad 
de trabajo, y la programaci6n se convertiria 
en una empresa tediosa y aburrida. 
Afortunadamente no tendremos necesidad 
de Ilegar a esto ya que todos pueden escribirse 
con el comando PRINT. Escondida en alggn 
profundo lugar de la memoria del Amstrad 
est6 toda la informaci6n necesaria para ge- 
nerar la <trama de puntos de Ios'caracteres 
ms comgnmente utilizados y adem6s un buen 
n0mero de otros que son menos cotidianos. Ha 
hecho el trabajo par nosotros. 

Caracteres y bytes 

El juego de puntos requerido para cada ca- 
rcter se conoce coma <qatr6m o tra- 
mm de bit. El ordenador almacena el patr6n 
de'bit de coda cargcter y cuando se le piede 
que escriba uno en particular, busca la trama 
apropiada y envia el data a la pantalla. 
Todo ella se realiza par media de rutinas en 
c6digo mgquina que trabajan muy r6pidamen- 
te y dan coma resultado el que aparezca el 
car6cter en la pantalla incluso antes de dar- 
nos tiempo a soltar la tecla. 
Coda car6cter se disea o dibuja en una red 
de 8 par 8 puntos. La figura I ilustra c6mo se 
da farina a la letra A. Es la trama de bit parti- 
cular que hemos utilizado en el programa I poo 
ra trazar et car6cter. 

Figura h Patr6n de Bit para A. 

2 

2 

El Amstrad tiene una capacidad de alma- 
cenar la informaci6n relativa a 256 car6cte- 
re$. 
Si desea examinar los patrones de bit de 
cualquier otro, puede encontrar todos en el 
manual del usuario. 
A cada uno de elias se le asigna un n0mero 
comprendido entre 0 y 255 para que el orde- 
nador pueda identificado y asi escribir en ca- 
da momenta el car6cter correcto. 
Par ejemplo, la tetra A se corresponde con 
el n0mero 65 y podemos usar este ngmero de 
c6digo para escribirla. 
En lugar de introducir: PRINT A 
podemos utilizar esta otra alternativa: 
PRINT CHRS(65) 
Ambas sacar6n una letra A en la pantalla. 
En eecto, la segunda dice: Escribe el car6c- 
ter cuyo nOmero de c6digo es 
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Podriamos intentar utilizar la mencionada 
instrucci6n para sacar algOn afro sustituyen- 
do el 65 par cualqui'er otro nOmero. 
Par el momenta vamos a evitar dar valores 
que est6n par debajo de 32 o par encima de 
126. Dentro de este rango encontraremos las 
letras, nOmeros y signos de puntuaci6n f6cil- 
menle conocibles -los m6s usados. 
Los 256 caracteres incorporados pueden ser 
divididos en tres grupos distintos. Los que es- 
tn comprendidos entre 0 y 31 son un juego 
especial de caracleres de control. 
Nos estamos refiriendo a los caracteres que 
no son imprimibles y que generalmente no ha- 
ten aparecer ningOn signo en la pantalla. 
Un ejemplo Otil de uno de estos caracteres 
de control es el que tiene el c6digo nOmero 7. 
Pruebe introducir en el ordenador: 

PRINT CHR$(7) 

No podremos ver este car6cfer, pero ilo es- 
cucharemos! Origina un corto pitido que se ge- 
nera a trav6s del altavoz interno del ordena- 
dor. De aqui el t6rmino de caracteres de con- 
trol, ejerzan control sabre los distintos 6rga- 
has del micro. 
Hay un buen nOmero de elias. Los nOmeros 
8, 9, 10 y 11 controlan el movimiento del cur- 
sor de textos, de modo que: 
PRINT CHR$(IO) 
bajar6 el cursor de textos una linea, mientras 
que: 
PRINT CHRS(I I) 
subir6 el cursor una linea. 
Algunos caracteres de control tienen equi- 
valencia con instrucciones Basic. Por ejemplo, 
el car6cter 29 pondr6 el borde de la pantalla 
del color que queramos, aunque tendr6 que 
ir seguido de otros dos n0meros que determi- 
nar6n el color elegido. La instru¢¢iBn: 
PRINT CH RS(29);CH R$(3);CHR$(3) 
produce exacfamenfe el mismo efecfo que: 
BORDER 3 
y colorear6 el borde de la pantaila en rojo. 
Observe que es necesario que introduzcamos 
dos nOmeros de color aunque sean iguales. 
Con nOmeros distintos conseguiremos un bar- 
de parpadeante. 
Del mismo modo el car6cter nOmero 4 es 
equivalente al comando MODI:, y la instruc- 
ci6n siguiente seleccionar6 el Modo 2: 
PRINT CHR$(4);CHR$(2) 
NormaJmenfe no necesifaremos ufilizar los 
caracferes de confrol en la programaci6n Ba- 
sic, pero pueden sernos muy Otiles cuando for- 
man parte de una larga cadena de caracte- 
res, coma veremos la semana que viene. 
Aunque hemos dicho que los caracteres 0 
a 31 no escribian nada en la pantalla, es po- 
sible imprimir el signo representativo del ca- 
r6cter. Para conseguirlo pulsamos la tecla 
CTRL al mismo tiempo que otra cualquiera. Par 
ejemplo, pulsando CTRL y G (la s6ptima letra 
del alfabeto) al mismo tiempo aparecer en 
la pantalla un sfmbolo que representa una 
campanita. 

C6digos y caracteres 

Podemos examinar todos los caracteres 
manteniendo pulsada CTRL y presionando ca- 
da tecla de la A a la Z par turno. Algunos siT- 
bolos representan claramente el carecter que 
les corresponde. Los caracteres 8 a 11 de mo- 
vimiento del cursor (CTRL m6s una letra de la 
H a la K) estn representados par flechas que 
indican Ja direcci6n del movimiento del cursor. 
Sin embargo, algunos simbolos dejan un po- 
co oscuro el significado del carcter del con- 
trol que representan. 

Fijese que si introducimos un comando: 
PRINT CHR$(7) 
la funci6n que realiza el carcter de control 
se ejecuta realmente. En este caso escucharia- 
mos un pitido. Pero si pulsamos CTRL y G si- 
multneamente, apareceria el simbolo en la 
pantalla, pero la funci6n no se ejecutar y 
oiremos (un silencio)). 
Podemos utilizar la tecla CTRL para introdu- 
cir caracteres de control en el listada del pro- 
grama y conseguir que cumpla con su traba- 
jo, siempre que Io pongamos entre comillas 
dentro de la instrucci6n apropiada. Par Io tan- 
to, en vez de utilizar una linea parecida a es- 
to: 
10 PRINT CHR$(7) 
conseguiremos el mismo resultado utilizando 
el siguiente comando: 
10 PRINT .... 
el platillo volante es el simbolo que aparece 
al pulsar juntas CTRL y G. Ahora cuando eje- 
cutemos el programa la funci6n de control se 
realizar6 exactamente cuando se ejecute la li- 
nea 10, pero el simbolo no aparecer6 en la 
pantalla. 
El segundo grupo de caracteres son los nu- 
merados entre 32 y 126. Representan todas 
los letras, nOmeros y signos de puntuaci6n que 
aparecen en el teclado. El programa II nos 
muestra todos eslos caracteres junto con sus 
respectivos nOmeros de c6digo. 
Una caracleristica interesante de los carac- 
teres es que tarTan un iuego standard que po- 
demos encontrar en la mayor parte de los or- 
denadores. 
Coma ya hemos vista, si ordenamos al 
Amstrad para que escriba el car6cter n0me- 
ro 65 aparecer6 en la pantalla la letra A. Si 
tenemos acceso a otro ordenador podernos in- 
tentar escribir con el mismo n0mero de car6c- 
ter. 
Nos encontraremos con que tambi6n apa- 
rece la letra A, aunque no est definida de la 
misma forma. De cualquier modo la letra A 
seguir siendo legible. Podemos deducir de to- 
do esto que hay una lista standard de c6di- 
gos que se corresponden con coda una de las 
letras. 
Este conjunto de caracteres se conoce co- 
mo c6digo Ascii. El nombre proviene de la 
abreviatura de ¢¢American Standard Code for 
Information Interchange. Como el propio ti- 
tulo implica, se trata de un c6digo creado en 
Am6rica, pero que ha sido generalmente 
aceptado como c6digo standard para todos 
los caracteres alfanum6ricos en ta mayoria de 
los ordenadores. 



De un pais a otro encontroremos variacio- 
nes sin importancia en algunos simbolos de los 
menos urilizados y signos de puntuaci6n. Sien- 
do un c6digo americana, no aparecen, par 
ejemplo, el simbolo de la libra esterlina o el 
de la peseta en este juego standard. 
En Basic hay una pdabra clave para repre- 
sentar el c6digo AscII de un determinado ca- 
r6cter. Si desea encontrar el nOmero de c6di- 
go que tiene la letra A, par ejernplo, puede 
utilizar el comando: 
PRINT ASC (A) 
Nos devolver6 el valor 65, que coma ya sa- 
bemos es el nOmero de c6digo de la letra A. 
El programa III es una variante del progra- 
ma II, pero en este caso trabaja de un modo 
menos directo. Saca los valores Ascii de ca- 
da una de las letras de la A a la J. Est6n con- 
tenidas en la instrucci6n DATA de la linea 120. 
Si desea que el programa imprima todos los 
c6digos Ascii, tendria que ampliar la instruc- 
ci6n DATA para incluir bdos los caracferes al- 
fanumricos. 
A la vez podemos ir utilizando el programa 
IV, que espera a que pulsemos una teda y en- 
tonces saca el nOmero del c6digo Ascii corres- 
pondiente a esa teda en particular. Cuando 
use este programa tenga en cuenta si esf6 
puesta o quitada la tecla que ilia los mayOs- 
culas (CAPS LOCK). Tambin podemos pulsar 
la tecla SHIFF (MAYS) para conseguir letras 
mayOsculas. 

128 64 i)2 I/ 8  2 1 
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Fuer de los Ascii 

Finalmenfe hay un tercer grupo de carac- 
teres, los numerados entre 127 y 255. 
Se trata de un grupo de simbolos especia- 
les cuya definici6n no es standard. 
Es muy poco probable que podamos encon- 
trar un juego de caracteres idntico al del 
Amstrod en alggn otro ordenador. 
Coma re, los diseodores han sacado el 
m6ximo rendimiento al hecho de que su 
trod pueda almacenar hasta un total de 256 
caracteres y han creado un interesante surti- 
do de simbolos poco comunes para que po- 
damos utilizarlos en nuestros programas. 
Podemos examinar de nuevo el manual del 
usuario para ver todos los caracteres que po- 
see, o si no cambie la linea 40 del programa 
II par la siguiente: 
40 FOR car6cter = 127 TO 255 

Comprobar6 que hay toda clase de carac- 
teres desde simbolos matem6ticos a musica- 
les, de naipes a hombrecitos. Si observa cui- 
dadosamente quiz6 hasto podria ver un oca- 
sional <(marcianito)) (;,Qu micro pue- 
de ser m6s completo?). 
Pero no podemos acceder directamente des- 
de el teclado a algunos de estos caracteres, 
asi que, para sacarlos en la pantalla, es ne- 
cesario normalmente teclear: 
PRINT CHR$(n) 
donde <n>> es el nOmero de c6digo del car6c- 
ter. Observe, sin embargo, que al simbolo de 
la libra si podemos acceder directamenfe des- 
de el teclado, est6 a la izquierda de CLR preo 
cisamente. 
Con todos estos caracteres a nuestra dispo- 
sici6n, podriamos pensar que ya tenemos to- 
dos los s[mbolos que necesitamos usar en nues- 
tros programas. Pero no es asi. M6s farde o 
m6s temprano necesitaremos utilizar uno o va- 
rios simbolos que ya no existen en el juego de 
caracteres incorporados. 

Nuestros propios 
caracteres 

Para solucionar este problema, en Loco- 
motive has han dado a los programadores 
la oportunidad de poder diseBar nuestro pro- 
pio juego de caracteres e incorporarle despus 
al interno del ordenador. En efecto, coda uno 
de los caracteres que nos han dado con el 
Amstrod puede ser rediseado en parte o 
totalmente y convertirle en un simbolo diferen- 
te. 
Antes de empezar a dibujar nuestros pro- 
pios caracteres necesitaremos saber cu61es son 
los que ya est6n incorporados. 
Recuerda que le comentamos que cada ca- 
ratter ocupa una red de 8 par 8 puntos? Va- 
mos a examinar atentamente c6mo se dibuja 
la letra A. Conocemos su trazado par la figu- 
ra I, que se repite en la figura II, pero en esta 
ocasi6n hemos aadido unos n0meros al la- 
do de la trama. 
Cruzando la parte superior de la figura, ca- 
da columna Ileva asignado un n6mero. Par- 
tiendo de la columna de la derecha, que tie- 
ne el n6mero 1, a cada columna de la izquier- 
dale hemos puesto un nOmero que es el do- 
ble del de la columna anterior. Estas can)ida- 
des representan los ocho bits de un nOmero 
binario y cada una de sus combinaciones se 
corresponde con uno decimal, comprendido 
entre 0 y 2S5. 
En la linea superior de la figura II, los cua- 
dros de los columnas 16 y 8 est6n en negro. 
Si sumamos los nOmeros de estas dos colum- 
nas obtendremos 24. Y la representaci6n del 
nOmero 34 en binario es: 
00011000 - 
Podemos ver que los n0meros 0 y 1 ocupan 
exactamente el mismo lugar que los cuadros 
blancos y negros de la ilia superior de la figu- 

ra II. En otras palabras, los 0 y 1 del nOmero 
binario reflejan la estructura de la linea. Un 
1 representa que la columna est6 rellena (en 
negro), y un 0 que permanece vacia (en blan- 
CO). 
Podemos aplicar la misma norma a coda 
una de las ocho lineas de la figura 11. 
Sumamos los valores de coda' columna en 
la que hay un cuadro negro dentro de una fi- 
lay el resultado nos da el n0mero que apare- 
ce al lado derecho de la figura. 
Para comprobar que ha entendido )ado Io 
anterior intente calcular los valores de cual- 
quier otro car6cter. 
La figura III (la letra I) es f6cil y apropiado 
para ir empezando, pero la figura IV (nues- 
Ira amigo el invasor espacial) es un poco m6s 
complicado. 
Necesitaremos encontrar un sistema para 
calcular estos valores si queremos disear 
nuestros propios caracteres. Los tablas I y II 
nos dan la respuesta. 
El Amstra ya tiene incorporados los 256 
caracteres m6ximos, asi que, ,c6mo poe- 
mos sustituir uno de los ya existen. 
tes par el nuevo que acabamos de 
crear? Buena, en precisamente los numera- 
dos entre 240 y 255. Si rediseamos el car6co 
ter 240, el nuevo simbolo sencillamente se es- 
cribe encima del almacenado anteriormente 
con el n0mero 240. 
Pasemos a la pr6ctica. Vamos a intentar 
crear un car6cter nuevo. Antes de nada me- 
tamos el comando: 
PRINT CHRS(240) 
El ordenador nos va a sacar en la pantalla 
el car6cter original con nOmero de c6digo 240, 
que se )rata de Ja flecha oscendente. 
Para definir el nuevo car6cter, usaremos Ja 
instrucci6n SYMBOL seguida del n0mero de 
c6digo. 
A continuaci6n, y par arden, ir6n los ocho 
cantidades que representar6n los valores de 
coda una de las lineas del nuevo simbolo. 
Probemos meter en el ordenador: 
SYMBOL 240,255,255,255,255, 
255,255,255,255 
64+32+16+8+4+2=]26 01111110 
16+8 = 24 00011000 

16+8 = 24 00011000 
16+8 = 24 00011000 
16+8 = 24 00011000 
16+8 = 24 00011000 
64+32+16+8+4+2--126 01111110 
0+0+0+0+0+0+0+0= 0 00000000 



seguido de: PRINT CHRS(240) 
Ahora en lugor de la flecha ascendente nos 
ha salido un cuadrado relleno. 
Hemos utilizado el valor m6ximo, 255, en 
cada una de las lineas del car6cter Io que nos 
da como resultado que los 64 cuadros de la 
red 8 por 8 est6n en negro. 

0+64+32+16+8+4+2+0=126 01111110 
128+64+32+16+8+4+2+1=255 11111111 
128+ 0+ 0+16+8+0+0+1--153 10011001 
128+64+32+16+8+4+2+1=255 11111111 
128+64+ 0+ 0+0+0+2+1=195 11000011 
128+ 0+32+16+8+4+0+1=189 10111101 
128+64+32+16+8+4+2+1=255 11111111 
0+64+32+16+8+4+2+0=126 01111110 

Inlente disefiar su propio car6cter. Recuer- 
de que puede utilizor cualquiera que tenga nO- 
mero de c6digo comprendido entre 240 y 255. 
Pruebe el comando SYMBOL seguido de 
8 n0meros, entre 0 y 255, elegidos completa- 
mente al azar y colocados a continuaci6n del 
n0mero del car6cter. 
A la vez intents escoger una secuencia de 
n0meros que den forma a un simbolo que po- 
damos reconocer. 
Si tiene una hoja de papel cuadriculado uti- 
licela como ayuda a la hora de dibujar sus pro- 
pios caracteres. 
El programa V le permite inlroducir 8 n0me- 
ros variables que se utilizan para dibujar un 
simbolo nuevo. 
En 61 podr6 ver en la pantalla coda linea del 
simbolo en el momento que hemos metido to- 
dos los datos en el ordenador. 

Disear un carcter 

El comando SYMBOL funciona siempre de 
la misma manera independientemente del mo- 
do de pantalla que deseamos usar. 
En Modo 0 aparece el c6racter ocupando 
una superficie mayor que la que ocuparia el 
Modo 1 y, por Io tanto, utilizaria ms pixels, 
sin embargo, el simbolo se crea usando el mis- 
mo esquema de numeraci6n. 
Intente cambiar la Ifnea 20 del programa V 
al Modo 0 y ver que funciona igual de bien, 
pera desde luego los caracteres aparecen mu- 
cha mayares que antes. 
Coma dijimas m6s arriba, el Amstrad per- 
mite definir 16 nuevos caracteres, pero s61o 
si no le decimos Io contrario. 

Imagine que 16 no son suficientes y, por Io 
tanto, tenemos que decir al ordenador que ne- 
cesitamos definir m6s. Para hacerlo utilice la 
instrucci6n: 
SYMBOL AFTER n 
donde <n es el n0mero desde donde desea 
comenzar a redefinir sus propios carocteres. 
Podemos, en efecto, volver a crear cada uno 
de los simbolos comprendidos entre 32 y 255. 
Es muy probable que queramos redefinirlos 
todos, pero vamos a imaginar que necesita- 
mos, por ejemplo, 64 caracteres nuevos. 
Vamos a dibujar de nuevo los numerados 
del 192 al 255. Para hacerlo usaremos el co- 
mando: 
SYMBOL AFTER 192 
Ahora ya podemos comenzar a definir cual- 
quier car6cter a partir del 192 en la forma que 
Io hacemos habitualmente y que seria pareci- 
do a: 
SYMBOL 192, 1, 2, 3, 4, 5, 6, 7, 8 

Solamente para comprobar que puede ha- 
cerse, redisearemos todo el juego de carac- 
teres con el programa VI. Pruebe a ejecutar- 
Io y despus intente usar el teclado. 
Puede adivinar qu ha ocurrido? 

Y al final... 

Es todo por esta semana. Como ve, redefi- 
nir alggn car6cter puede serle muy Otil aun- 
que solamente desee una serie de simpticos 
alienigenas mucho m6s completa que la que 
tenemos. 
gibujar una colecci6n de nuevos caracteres 
puede resultar un trabajo bastante laborioso 
que puede hacerse mucho m6s f6cilmente 
usando el programa especial de utilidades Ila- 
mado ((generador de caracteres)). 
Lo usaremos en el pr6ximo articulo, y ade- 
m6s tambi6n veremos la manera de juntar va- 
rios de stos y formar grandes caracteres gi- 
gantes. 

PROGRAMAS 

10 REM PROGRAMA 
20 MODE 1 
30 LOCATE 1,5 
40 PRINT "Esta ]etra esta escrita 
50 LOCATE 1,12 
60 PRINT "Esta Istra esta hecha con 
plots " 
70 FOR plxel=1 TO 28 
80 MOVE 512,208 
90 READ 
100 PLOTR xy 
110 NEXT 
120 DATA 2,2,4,2I0,2,12,2 
130 DATA 24,4,4,104,124 
140 DATA 2,6,4,b,b,6,8,6,10,6,12,6 
150 DATA 284,8I0812,8 
160 DATA 2,10,4,10, I0I0,12i0 
170 DATA 412&,12812I0,12 
180 DATA 6,14,8,14 

i0 REM PROGRAMA IIl 
20 MODE I 
30 FOR letra=l TO 10 
40 READ letra$ 
50 PEN 1 
0 PRINT "El codigo Ascii de 
70 PRINT letra$; 
80 PRINT " es "; 
90 PEN 2 
100 PRINT ASC(letra$) 
110 NEXT letra 
120 DATA ABCDE,FGHIJ 

10 REM PROGRAMA II 
20 MODE I 
30 x-1:y-1 
40 FOR caracter=32 TO 126 
50 LOCATE 
60 PEN I 
70 PRINT caracter; 
80 PEN 2 

90 PRINT CHR$(caracter) 
100 y y+l 
110 IF y 25 THEN y-l:x=x+6 
120 NEXT 
130 WHILE INKEY$="":WEND 

10 REM PROGRAMA IV 
20 MODE 
30 PRINT "Pulsa una tecla - segulda 
de ENTER" 
40 PRINT 
50 PEN I 
60 INPUT "Tecla ";tecla$ 
70 PEN 3 
80 PRINT "Su codlgo Ascii es ";ASC( 
tecla$) 
90 GOTO 40 

10 REM PROGRAMA V 
20 MODE I 
30 SYMBOL 240,00,0,00000 
40 FOR numero=l TO 8 
50 LOCATE 1numero 
60 INPUT "Numero ":n(numero) 
70 SYMBOL 240,n(1),n(2),n(3),n(4),n 
(5),n(6)n(7),n(B) 
80 NEXT numero 
90 LOCATE 205 
IO0 PRINT CHR$(240) 
II0 LOCATE 1,20 
120 INPUT "Intentamos otto ";siS 
130 IF UPPER$(si$)-"S" THEN GOTO 20 

10 REM PROGRAMA VI 
20 MODE I 
25 PRINT "Espera. Vas a oir un sonl 
do!" 
30 SYMBOL AFTER 32 
40 FOR caracter-32 TO 255 
50 SYMBOL caracter255,255255255, 
255,255,255,255 
60 NEXT caracter 
70 PRINT CHR$(7) 
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100.000 PESETAS 
CON MICROHOBB Y 

AMSTRAD 

SEMANAL 

Porque prelendemos que AMSTRAD 
SEMANAL sea tambin vuestra revista, 
hemos abierto una secci6n en la que se 
publicar6n los mejores programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros seris los encargados de realizar 
estas p6ginas, en las que podris apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 
Los condiciones son sencillas: 
-- Los programas se enviar6n a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acompa- 
fiado de un texto explicafivo en el cual 
se incluyan: 
-- Descripci6n general del programa. 

-- Tabla de subrutinas y variables uti- 
/izadas, explicando claramente la 

funci6n de cada una de elias. 
-- Instrucciones de manejo. 
-- Todos estos datos deber6n ir escri- 
tosa m6quina o con letra clara para ma- 
yor comprensi6n del programa. 
-- No se admitir6n programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpre- 
tados por las impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado, AMSTRAD SE- 
MANAL abonar6 al autor del programa 
de 15.000 a 100.000 pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, recibir6n 
una comunicacion escrita de ello en un 
plazo no superior a dos meses a partir 
de la fecha en que su programa Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
ma, 
-- Todos los programas recibidos que- 
dar6n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio ser6n eliminados inmediatamente. 

iENVIANOS 
TU PROGRAMA! 
Adjuntando los siguientes datos'. 
Nombre y apellidos, 
direcci6n y telfono. 
Indicando c/aramente en el sobre: 

AMSTRAD SEMANAL 

a HOBBY PRESS, S. A. La Grania, 39 
P01. Ind. Alcobendas (Madrid) 

Centro Comercial Guadalupe 
Ctra. Canillas, 136-1.  planta 
Tel. 200 80 85 MADRID 

Centro Comercial El Bulevar 
La Moralcja 
Tel. 654 16 12 MADRID 

TambiEn abietto domingos de 10 a 2 
Centro Comercial Ciudad Sto. l)omingo 
Ctra. de Burgos, km 28. 
Tel.: (91) 622 12 89 
Algete (Madrid) (Central) 

MASTER HARD 

Servicio T  cnico 
Para AMSTRAD 
en Galicia, 
Le6n 
y Asturias, 
CWMagdalena, 213 
El Ferrol 
Tel.: (981) 35 84 32 

MECA.SCRIB 

El Curso de Mecanografia para el AMSTRAD PCW 8256. 
iilMPORTANTE PARA ACADEMIAS!! 
• Gesti6n de alumnos, 
• Capacidad para 60 alumnos, 
en un solo diskette. 

Pedidos a: 

EDUCOMP, S.A. 
Cl Molina de Arag6n, 1. 
Tel. (911) 2232 12 
19003 GUADALAJARA 

MIERO DEALER 

MA YORISTAS DE INFORMA TICA 
AMSTRAD PCW 8512 
AMSTRAD PCW 8256 
AMSTRAD CPC 6128 Fosforo verde y 
AMSTRAD CPC 472 F0sfofo verde y color 
Impresoras, Interfaces, Joysticks 
Diskettes de 3 pulgadas, cable, etc 
Sinclair. Commodore, New Print, 
Spectrawdeo. Compahbles 18M 
CI. Comandante Zon[a, 13. 28020 Madrid 
Tells. 233 07 81 • 233 07 35 

FUNDAS PARA TU <<AMSTRAD 
,44472 y 128 ....... 2.262 
825 ................... 3.250 
Joystick Quickshott II ...... 1.975 
Pago reembolso, ms 250 ptas, de 
gastos de envio, 
Indicar modelo y monitor (verde o co- 
lor], 

Pedidos a BAZAR POPULAR 
Apartado 27.040 
08080 BARCELONA 

OPERA CION CAMBIO 
Psate a monitor color por 
25.000 ptas. 
Valoramos: 
Tu Amstrad 464 en 50.000 plas. 
Amstrad 664 en 60.000 ptas. 
En la compra de un Amstrad 
CPC 6128, PCW8256. PCW8512 
Consulte para monitor color 
 (91) 270 34 97 de 4,30 a 8,30 

PUBLICIDAD 
/ 
".GASINETE DE INFOA 
• Clases de Informdtica 
sobre AMSTRAD 
En grupos e individuales. 
• Ordenadores AMSTRAD y 
perifricos 
Los rnejores precios 
• Software: Estandar y a la medida 

ZURBANO, 4410 47 63 
28010 MADRID 
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DE VENTA EN LOS MEJORES COMERClOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener los programas, puede dirigirse a: 
Ofi|e$ va. Isabel II, 16-8 o 
Tels. 455544 - 455533 
I fo ti Tlex 36698 
n rm ca 20011 SAN SEBASTIAN 
CONDICIONFS I:SPFCIALI:S PARA DISTRIBUIDORI:S 
I:DITOR Y DISTRIBUIDOR I:XCLUSIVO PARA ESPAIA Y PORTUGAL 



Autores: Daniel Palomo Ortega y Angel Ripall Radena$ 

Este programa ayudar6 a trabajar con nOmeros 
complejos. Con 1 podr6s realizar numricamente 
operaciones que realizas de manera analtica. 
Adem6s podr6s representar gr6ficamente los 
nOmeros con Io que podr6s hacerte una idea de 
c6mo transforma cada operaci6n un nOmero del 
piano complejo. 

de un nOmero complejo le correspon- 
den infinitos valores distanciados 
2*pi*i segOn la siguiente f6rmula: 
log Z--log R+i*arg+2*pi*i*k 

.- una representa- 
ci6n gr6fica de este tipo, empleamos 
un sistema de ejes cartesianos. El eje 
horizontal es el de las partes reales 
y el vertical el de las imaginarias. Ca- 
da nOmero complejo viene represen- 
tado par un vector (en la pantalla 
una linea) que va desde el original, 
punto 0 O, hasta el punto de coorde- 
nadas (real, imaginario) que Io de- 
terminan. 
Las operaciones que puedes reali- 
zar son: 
-- Operaciones bcsicas. 
-- Logaritmos. 
-- Funciones trigonomfricas. 
-- M6dulo y argumento. 
-- Raiz y pofencia. 
-- Represenfaci6n gr6fica. 

Operaciones b6sicas 

En esta opci6n puedes sumar, res- 
tar, multiplicar y dividir los nOmeros 
complejos. Elegida la operaci6n se 
pedir6 el segundo nOmero que inter- 
viene en la misma. Tras realizarla 
aparecer6 el resultado y la opci6n de 
almacenarlo para posteriores c61cu- 
lOS. 

Logaritmo 

Permite calcular el Iogaritmo del 
nOmero principal. Tienes posibilidad 
de elegir la base del mismo (s61o ba- 
ses reales positivas). AI extraer el Io- 
garitmo de un complejo surge el pro- 
blema de su indeterminaci6n. La fun- 
ci6n Iogaritmo de un complejo est6 
multivaluada, es decir, al Iogaritmo 

Funciones trigonomtrlcas 
En esta opci6n se realizan los cl- 
culos con el nOmero principal. 
Es posible realizar las siguientes 
funciones: seno, coseno, tangente, 
secante, cosecante, cotangente. Y 
sus inversas, es decir, arcoseno, ar- 
cocoseno, arcotangente, etc. 
No es aconsejable escoger n0me- 
ros cuyas partes real o imaginaria 
sea mayor de 88 radianes ya que el 
nOmero e elevado a esa potencia es- 
t6 en los limites de rebosamiento de 
la m6quina. 
En las funciones inversas se hace 
usa del Iogaritmo par Io que estamos 
suietos alas mismas restricciones que 
en su caso. 

Potenciaci6n y radicaci6n 

Puedes Ilevar el nOmero principal 
a cualquier nOmero. En cuanto a rai- 
ces puedes calcularlas con indice real 
o imaginario. Si el indice es entero 
positivo obtendr6s tantas raices co- 
ma las que indique el indice, par 
eiemplo, si es una raiz cObica apa- 
recern tres resultados en pantalla, 
6stos se encuentran almacenados en 
las matrices RE e IM. 

FNRD 
ENANG 
ENELR 
NEL! 
FNCH 
ENSH 

A: ES 'E 

Hay un problema cuando el indi- 
ce no es entero. Para ser exactos los 
problemas se presentan cuando el in- 
dice es irracional. Hemos considera- 
do que introducir6s las aproximacio- 
nes racionales al nOmero. La raiz de 
un nOmero complejo est6 valuada de 
forma infinita. Nosotros hemos esco- 
gido la determinaci6n principal 
(n=o) esa es la raz6n de que s61o 
aparezca una de las posibles raices. 
No se aconseja elevar a un n0me- 
ro muy alto par la razones expues- 
tas anteriormente. 

M6dulo y argumento 
Un nOmero complejo puede expre- 
sarse en su forma m6s cl6sica: parte 
real e imaginaria o bien dando su 
m6dulo (Io que mide el vector que Io 
representa) y su argumento (el 6ngu- 
Io que forma el vector con el semie- 
je positivo). Puedes calcular el m6du- 
Io y argumento introduciendo el 
mero coma parte real e imaginaria 
o al rev6s. Cuando introduces m6du- 
Io y argumento este Oltimo puedes in- 
troducirlo en 6ngulos o radianes. El 
programa trabaja siempre con ra- 
dianes. 
Cuando un nOmero est6 muy cer- 
ca del nOmero m6ximo que permite 
el ordenador volver a repetir la ope- 
raci6n fij6ndose en la ventana cen- 
tral para comprobar que el ordena- 
dot no avisa de error (overflow) ya 
que este error no afecta a la ejecu- 
ci6n del programa. 

ON RO 



RE,IM: 
Z: 
A,B 
A1,BI: 
RA, AN: 
RA 1 ,AN ! : 
V1,V2: 
BA: 
MAI,MA,MA I .' 
DI: 
5R, RR, ELR,MR I 
LOR,SER,COR I 
TGR,CSR,SCR I 

Matrices de almacenamiento de las raices enteras 
Variable de control de subrutinas 
Parte real e imaginaria del nOmero principal 
Parte real e imaginaria del ngmero secundario 
M6dulo y argumento del m]mero principal 
M6dulo y argumento del nOmero secundario 
Variables transitorias para almacenar nOmero 
Base del Iogaritmo 
N]meros m6ximos en gr6ficos 
Valor de cada divisi6n en gr6ficos 

Variables de salida real de datos 

CTR,ARSR,ARCR I 
ARTR,ARCTR I 
ARCCR,ARCSR I 
SI,RI,ELI,MI I 
LOI,SEI.COI I 
TG1,CSI,SCI I 
CTI,ARSI, ARCI I 
ARTI,ARCTI I 
ARCCI, ARCSI I 
W?: 

Variables de salida imaginaria de datos 

Variables de control 

LINEAS 
10.24 
25-37 
38-41 
65.79 
80-87 
88-96 
97.105 
106-114 
115.122 
123.129 
130.138 
139-147 
148.158 
159.169 
170.173 
174.187 
188-196 
197-216 
217.234 
235-245 
246-273 
274.280 
281.287 
288.296 
297.304 
305.312 
313.320 
321.330 
331.340 
341-350 
351.359 
360.368 
369.377 
378.393 
394.412 
413.447 
459.467 
468.482 

TABLA DE SUBRUTINA$ 

FUNCION 
Cabeceras 
Definici6n de funciones 
Programa principal 
Raiz entera: realiza raices con indice entero 
Raiz general: realiza raiz con cualquier indice 
Suma 
Resta 
Exponenciaci6n 
Abanclonar programa 
Presenta nOmero en las ventanas inferiores 
Divisi6n 
Multiplicaci6n 
Introducci6n nOmero principal 
Introducci6n nOmero secundario 
Espera pulsaci6n de tecla 
Halla el m6dulo de un ngmero 
Presentaci6n 
MenO operaciones elementales 
MenO raiz y potencia 
Logaritmo 
MenO trigonomelria 
Seno 
Coseno 
Tangente 
Cosecante 
Secante 
Cotangente 
Arcoseno 
Arcocoseno 
Arcotangente 
Arcocotangente 
Arcocosecante 
Arcosecante 
MenO m6dulo y argumento 
Halla un nOmero a partir del m6dulo y argumento 
Representaci6n gr6fica 
Definici6n de ventanas 
Almacena nOmero en Z o Z1 

12 NM 
I RFM * COMPLEJOS 
15 REM  pot 
16 REM I 
17 REM ¢ Angel Ripoll 
18 REN  
20 REM I$ 
21 RM $$ Daniel Palomo 
22 REM $ 
25 OOSUB 194 
2 OSUB 494 
7 DEFREAL A- 
2S CLS:OIM 
o DEF FNRD{AB} MAX{ABS{A}.ABS<}} 
¢SR(I+{MIN{ABSA},AB{B}}/MAX(ABS{ 
30 EF FNANG{A,B=ATN{B/A} 
31 DEF FNREAL(AB}-A¢COS{B} 
3? OCF FNIMAG{A,B} A$SIN{B} 
3 DEF FNDIV(AoAi,BBI}=(A¢AI+BCBI 
}/(AISAI+BISBI} 
3 OFF FNDIVI{A,AIBBI}=<BAI-ASB! 
}/{AICAI+BIBI} 
35 DF FNELI{RAAN,AIBI}=AN¢AI÷BI¢ 
LOG<RA 
3b DEF FNELR(RAAN,AIBI}={RAA1}$E 
XP(-BISAN} 
37 DF FNSH(A {EXP(A}-EXP{-A}}/2 
38 DEF FNCH{A} {EXP(A}+EXP{-A}}/2 
39 GOSUB 128 
40 GOSUB 4b 
41 ON z GOSUB 227,244,5.119,2512 
0b,418452 
2 z-O:GOTO 39 
4 EM LCCION DE OPCIONES 
45 : 
b CLS:CLS #1:LOCATE #1I&2:PRINT 
#I,"OPCIONES 
47 LOCATE #1,5.4:PINT #1"AANDONA 
R"STRING$(18,"."):"A" 
4g LOCATE #I5b:PRINT #1,"LOGARITM 
O"STRING$(18"."}"L" 
50 I-OCATE #I,5,10:PNINT #1,"RAIZ Y 
POTENCIA"STRING$(12".");"R" 
5] LOCATE #].5.12:PRINT #I,"INTRODU 
ClP 
2 LOCAT #I514:PRINT #1,"MODULO 
Y ARGUMENTO"STRING${9".");"M" 
53 LOCATE #I,5.1b:PRINT #1t"OPERACI 
ONES BASICAS"ISTRING${8".");"O" 
54 LOCATE #I,5,18:PRINT #I,"REPRESE 
NTACION GRAFICA"STING$(5,".");"G" 
55 LOCATE 14,2:PRINT"ELIGE OPCION" 
56 Y$-INKEY$:IF Y$ "" THEN 56 
57 IF Y$-"R" OR Y$ "r" THEN Z 1 
58 IF Y$="L" OR Y$ "I " THEN Z=2 
59 IF Y$-"I" OR Y$="" THEN Z 3 
bO IF Y$-"A" OR Y$ "a" THEN Z=4 
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61 IF Y$ "T" OR Y$ "t" THEN Z 5 
62 IF Y$ "0" OR Y$-"O" THEN Z 
b3 IF Y$ "M" OR Y$ "m" THEN Z-7 
64 IF Y$="G" OR Y$="g" THEN Z=8 
65 IF z-O THEN 56 ELSE WHILE INKEYS 
K)"": WEND: RETURN 
/-7 REM RAIZ ENTERA 
68 : 
69 C-2:CLEAR INPUT:CLS:CLS #I 
70 CLEAR INPUT:CLS:CLS #I 
71 LOCATE #I, 18,2:PRINT#1,"RAIZ":SO 
SUB 165 
72 IF RA 0 THEN SOSUB 84:RETURN 
73 IF INT(AI)-AI AND nl 0 THEN 74 E 
LSE GOSUB B4:RETURN 
74 IF a1>O THEN ERASE RE, IM:DIM RE( 
AI-I),IM(AI-I) ELSE 85 
75 FOR N-O TO AI-I 
76 RE[N]mRA^(I/AI):IM[N] (AN/AI)+(2 
PI fN)/At 
77 IF W I THEN RETURN 
78 IF (n+i) MOO 5-0 THEN GOSUB 179: 
CLS #1:CLS:EOCATE #I 18, 2:PRINT#1," 
RAIZ":C 2 
79 C=C+3:LOCATE #1,3,C:PRINT #I," I 
/ZI":PRINT #I," Z = ";"(";FNREAL( 
RE[N],IM[N]>I->,.,,+,,:..(,,:FNIMAG(RE[ 
N], IM[N]) ; "i ) ":NEXT 
BO W2 I:GOSUB 503:GOSUB 179:RETURN 
81 : 
82 REM RAIZ GENERAL 
84 IF RA=O THEN IF RAI<>O THEN RAR 
O:RAI-O:GOTO 89 ELSE SOUND 1,1000,1 
50, 15:EOCATE #I ,3, 11 :PRINT #I • "I/Z2 
":PRINT #1,"Zl = INDETERMINADO":GO 
SUB 179: RETURN 
85 IF RAI<>O THEN A FNDIVR(I,AI,O, 
BI):B2-FNDIVI(I,AI,0,BI) ELSE CLS:C 
LS #I:SOUND 1,1000,150,1:LOCATE #I, 
3,11:PRINT #1,"I/Z":PRINT #I"ZI 
INFINITO": GOSUB 179: RETURN 
87 A3 FNELR(RA,ANA2B2):B3 FNELI(R 
R8 RAR-FNREAL (A3, B3) : RAI-FNIMAG(A3, 
B3) 
B LOCATE #I.3,11:PRINT #1,"1/Z1":P 
RINT #I." 7 - ""("RAR;")":"+";" 
90 W2-O:VI=RAR:V2 RAI:GOSUB 503:GOS 
lib 179: RETURN 
91 : 
92 REM SUMA 
94; LS #I: OCAIE # , |8,6:F'RIN #I  " 
SUMA 
95 GOSUB 165 
9 .C.R=A+AI :SI-B+BI 
97 LOCATE #1I,12:PRINT #I," +I- 
98 PRINT#1,"(";SR;") ";"+":"(";SI;" 
99 vl-sr:v2 si:GOSUB 503:OOSUB 179: 
RETURN 
100 : 
101 REM RESTA 
102 : 
103 CLS #]:LOCATE #1.18,6:PRINT #I, 
"RESTA 
104 GOSUB 165 
105 RR A-AI:RI B-BI 
|06 LOATE #1,I,12:PRINT #I," Z-71- 
107 PRINT#1,"("RR") ":"+""<";RI; 
108 VI=RR:V2=RI:GOSUB 503:SOSUB 179 
: RETURN 
109 : 
t I 0 REM ELEVAR 
Ill 
112 OLS:CLS #1:LOCATE #1,156:PRINT 
#I, "POTENCIA":GOSUB 165 
113 IF RA 0 THEN IF RAI<>O THEN ELR 
O:ELI=O:SOTO I 15 ELSE SOUND I, I000 
,150.15:LOCATE #1,J,12:PRINT #I," Z 
^Z1= INDETERMINADO":GOSUB 179:RETUR 
N 
I  # Et R-FNEI R (RA, AN, A I, B I ) : EL I FNEL 
I (RA,AN,AI, BI) 
I15 LOCATE #1,1,12:PRINT #I," Z'ZI- 
116 PRINT# I , " ( " ; FNREAL (ELR, ELI )  " ) 
" i "+"  " ( " : FNIMAG (ELR, ELI ) ; -i ) ,, 
; 17 VI=FNREAL (ELR,ELI) :V2=FNIMAG(EL 

R,ELI):GOSUB 503:GOSUB 179:RETURN 
119 REM ABANDONAR 
120 : 
121 WHILE INKEY$<>"":WEND 
122 CLS #1:SOUND I, I000,15015 
123 LOCATE #I, I0 I I :PRINT#I, "rSABAN 
DONAR   " 
;24 LOCATE #I 9, 12:PRINT#1 , "CONFIRM 
A PULSANDO S 
125 Y$-INKEY$: IF Y$ "" TI4EN 125 
12 IF Y$-"S" OR Y$-"s" THEN CALL 
127 RETURN 
128 : 
129 REM NLIMERO 
130 : 
31 CLS #2:CLS#3 
13 LOCATE #2,7,1:PRINT #2,"Z A-Bi" 
133 LOCATE #3,5 I:PRINT #3"ZI 
Ii":F'RINT #3,"AI ";AI:PRINT #3,"BI 
134 RETURN 
135 : 
I6 REM DIVISION 
137 
13 CLS #1:I-OCATE #1,16,6:PRINT 
"DIVISION 
I'.9 GOSUB 165 
140 IF AI=< AND BI 0 THEN SOUND I, 1 
OK)O,9000, 12:CLS #1:CLS #2:CLS #3:CL 
'I ORATF cP.?:PRINT,,NA %F ['IVII)IR P[I 
R CERO":CALL &BBO6:SOUND 129O:BOSU 
B 131 : RETIJRN 
14! LOCATE #1,1,12:PRINT #I," Z/Z1 
142 PRIN#1, " (";FNDIVR(A, AI, B,BI) : " 
143 VI-FNDIVR(A,AI  B,BI ) : V2-FNDIVI ( 
AAIBSI):GOSUB 503:GOSUB 179:RETU 
RN 
144 : 
I5 REM MULT IPL ICAC|ON 
146 : 
147 CLS #1:LOCATE #1,13,6:PRINT #I, 
"MUL TIPLICACION 
148 GOSUB 165 
149 MR-A:AI-BBI:MI AISB+AIBI 
150 LOCATE #1I,12:PRINT #I" ZSZ1- 
152 VI=MR:V2=MI:GOSUB 503:GOSUB 179 
: RETURN 
153 : 
154 REM I NTRODUCCI ON 
155 : 
156 Cl S:LOCATE 15, I:PRINT"INTRODUCE 
157 LOCATE 172:INPUT "A-"oA:GOSUG 
128 
158 CLS: LOCATE 15, I : PRINT"INTRODUCE 
":LOCATE iT,2:INPUT "B ",B:GOSUB 12 
8 
15 IF A 0 AND B=O THEN RA O:AN-O:S 
OTO I b4 
160 RA-FNRD (A, B) 
161 IF A 0 THEN IF B>O THEN AN-PI/2 
:GOTO 164 ELSE AN-3PI/2:SOTO 164 
I/-2 AN FNANG(A,B):IF A<O THEN AN-AN 
+PI 
163 IF AN<O THEN AN AN+2PI 
164 CES: RETURN 
165 : 
166 REM OTRO NUMERO 
167 : 
168 CLS:LOCATE 15 I:PRINT"INTRODUCE 
169 LOCATE 17,2:INPUT "AI=",AI:GOSU 
B 128 
170 CLS:LOCATE 15, I:F'RINT"INTRODUCE 
":LOCATE 17°2:INPUT "BI="BI:GOSUB 
128 
171 IF AI-O AND BI=O THEN RAI-O:ANI 
O: GOTO 175 
172 RAI=FNRD (At, BI) 
173 IF AI-O THEN IF BI'>O THEN ANI-P 
I/2:GOTO 175 ELSE ANI-3PI/2:GOTO I 
75 
174 ANI=FNANG(AI,BI):IF AI<O THEN A 
NI=ANI+PI 
175 CLS: RETURN 
176 : 
177 REM PAUSA 
17B : 

179 CI.S:LOCATE 12,2:PRINT"PULSA UNA 
TECLA": CALL &BB06: RETURN 
181 REM blOI)UI 0 Y ARGUMENTO 
182 : 
(83 CLS:CLS #I:LOCATE #I.14,2:F'RINT 
#I, "RE/IM": CHR$ (243) : "MOD/ARO" 
J 84 CLEAR INPUT : C S : LOCATE 9 ° 2 : PR ! I,I 
T "GRADOS 0 RADIANES (O/R 
I5 Y$ INFBY$:IF y$ .... IHEN IB5 
186 IF f$="g" OR Y$ "G" THEN WHILE 
I NII:Ey$4 '>" " :WFND : W 1 : AbI-AN 180/P I : LO 
CATF #I, 17,4:F'RINT #1,"GRADOS":BOTO 
IS7 IF Y$="r" OR Y$-"R" THEN WHILE 
INFEY$<>"":WEND:LOCATE #I, 16.4:PRIN 
T #"RADIANES":GOTO IB9 
188 GOTO 185 
IR9 CLS:LOCATE #I,IO,9:F'RINT#1,"MOD 
ULO ": RA 
|90 F AN>O THEN LOCATE #1oIO, 13:F'R 
I NT# I, "ARGUMENTO-" ; AN 
191 IF AN<O THEN IF W I THEN LOCATE 
#I, IC, 13:PRINT#1, "ARGUMENTO=": AN÷3 
60 ELSE LOCATE #I, I0° 13:PRINT#1,"AR 
GUMENTO ": AN+2fPI 
192 IF W-I THEN AN ANPI/180 
193 RAD:W=O:VI RA:V2 AN:SOSUG 503:G 
OSUB 179:RETURN 
194 : 
195 REM PRESENTAC I ON 
197 MODE O:TAG:BORDER O: INK O°3:CLS 
: INK 7,0: INK 9,7:GRAPHICS PAPER 7:G 
RAPHICS PEN 9 
198 FOR S-I TO 205 STEP 2 
199 MOVE 50,S:PRINT"NUMEROS COMPLE3 
OS" : : FRAME 
.900 NEXT 
201 FOR p=1 TO 3000:NEXT 
202 RAD: RETURN 
203 : 
204 REM MENU OPERACIONES ELEMENTALE 
S 
205 : 
206 CLS:CLS #1:LOCATE #1,B,2:PRINT 
# I, "OPERAC I ONES ELEMENTALES" 
207 LOCATE #I , 6, 4:PRINT#1  "OPCIONE 
S" 
?08 LOCATE #1IO8:PRINT#1"SUMA":S 
TRING$(IA,".") :"S" 
209 LOCATE #;10, IO:PRINT#1"RESTA" 
:STRING$(15,".")!"R" 
10 LOCATE #I, 10o 12:PRINT#I, "DIVISI 
ON" ; STR I NG$ ( 12, ". " ) : "D" 
211 LOCATE #I, It), 14:PRINT#1 , "MULTIP 
LICACION"ISTRING$(6".");"M" 
I? OCATE #I I0 I:PRINT#1,"RETORN 
0 MENU":STRING$(8"."):"X" 
213 Z-O:LOCATE 14,2:PRINT"ELIBE OPC 
ION" 
214 Y$ INKEY$:IF Y$="" THEN 214 
215 IF Y$ "S" OR Y$ "s" THEN 
216 IF Y$ "R" OR Y$ "r" THEN 2=2 
217 IF Y$ "M" OR Y$="m" THEN Z 
218 IF Y$ "D" OR Y$-"d" THEN Z-4 
219 IF Y$ "X" OR ¥$ "x" THEN RETURN 
?20 IF ?-0 THEN 214 
221 ON Z GOSUB 92I01,145,136 
222 Z=O:GOTO 205 
223 : 
224 : 
225 REM MENU RAIZ Y POTENCIA 
226 : 
?27 CLS:CLS #1:LOCATE #1,12,2:PRINT 
#I , "RAIZ Y POTENCIA" 
228 LOCATE #1 lb,4:PRINT#1o "OPCIONE 
229 LOCATE #I, IO,9:PRINT#I"RAIZ":S 
TRING$(13, ". ") ; "R" 
730 L OCATE #I . I0. 13:PRINT#1 . "POTENC 
IA" ; STRINGS (9, ". " ) ; "P" 
231 LOCATE #t, I0, 17:PRINT#I, "RETORN 
0 MENU"; STRINGS(5, ". ") ; "X" 
232 Z=O:LOCATE 14,2:PRINT"ELIGE OPC 
ION" 
233 WHILE INKEYSK>"':WEND 
234 Y$=INKEY$:IF YS="" THEN 234 
235 IF Y$="R" OR Y$="r" THEN Z I 
236 IF Y$="P" OR Y$-"p" THEN Z-2 
237 IF Y$-"X" OR Y$="x" THEN RETURN 
238 IF Z-O THEN 23 
239 ON Z GOSUB 69,112 
24O GOTO 227 
241 : 
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242 REM LOGARITMO 
243 : 
244 CLS:CLS 01:LOCATE 01, 15,2:PRINT 
01, "LOGARI TMO" 
245 LOCATE b,2:PRINT "INTRODUCE BAS 
E DEL LOGARITMO";:LOCATE 8,3: INPUT 
" (CERO PARA EL NEPERIANO) ", BA: IF BA 
0 THEN BA=I ELSE BA LOG(BA) 
246 IF RA=O THEN LOCATE #1,2,10:PRI 
NT 01,"LOG<7)--INFINITO":GOSUB 177: 
RETURN 
247 IF BA<O THEN LOCATE #I,2,9:PRIN 
T #1,"EL NUMERO"|BA,'"NO ES ADMITIDO 
COMO BASE" : GOSUB 177 : RETURN 
248 LOR=LOS (RA)/BA: LOI=AN/BA 
249 LOCATE #1,2,10:PRINT #I,"LOG Z- 
(" ; LOR: ") "; "÷ (" ; LOI ; "i ) " 
250 VI=LOR:V2 LOI:GOSUB 503:GOSUB 
79: RETURN 
251 : 
252 REM MENU TRIGONOMETRIA 
253 : 
254 CLS:CLS #1:LOCATE 01,14,3:PRINT 
01, "TR I GONOMETR I A" 
255 LOCATE 01,5,6:PRINT #I,"SEN";ST 
RING$(8,".');"S";SPACE$(5)I:PRINT # 
I, "ARCSEN" ; STRINGS (5, " • " )  "A" 
256 LOCATE #I,5,8:PRINT #I,"COS";ST 
RINGS (8, " . " ) ; "C" ". SPACES (5)  : PRINT 0 
I, "ARCCOS" ; STR I NG$ ( 5, ". " ) ; "R" 
257 LOCATE #1,5,10:PRINT #I,"TAN";S 
TRING$(8,".">;"T";SPACE$(5);:PRINT 
#I, "ARCTAN" ; STRINGS (5. ". " ) ; "N" 
25S LOCATE #1,5, 12:PRINT 01, "SEC"S 
TRING$ (8, ". ") ; "E" SPACES (5) ; sPRINT 
# I, "ARCSEC" ; STR I NG$ ( 5, " • " ) ; "Q" 
259 :LOCATE #I,5,14:PRINT #1,"COSEC 
"STRINGS (6 ". ") ; "D" ; SPACES (5) ; :PRI 
NT #I,"ARCCOSEC";STRING$(3,".");"V" 
260 LOCATE #I, 5, 16: PRINT #I  "COTAN" 
$ STRINGS (6, ". ") ; "F"  SPACES (5) ; :PRIN 
T #I,"ARCCOTAN";STRINO$(3"-">;"W" 
261 LOCATE #I , 10, 18: PRINT#I  "RETORN 
0 MENU";STRING$(5, ". ") ;"X" 
262 LOCATE 14,2:PRINT"ELIGE OPCION" 
263 BA I:Z O:Y$ INKEY$:IF Y$ .... THE 
N 263 
264 IF Y$-"S" OR Y$-"s" THEN 
265 IF Y$="A" OR .Y$ "a" THEN Z 2 
266 IF Y$="C" OR Y$ "c" THEN Z-3 
267 IF Y$="R" OR Y$ "r" THEN Z 4 
268 IF Y$-"T" OR Y$ "t" THEN  5 
269 IF Y$ "N" OR Y$="n" THEN Z-6 
270 IF Y$ "E" OR Y$ "e" THEN Z=7 
271 IF Y$ "Q" OR Y$="q" THEN Z=S 
272 IF Y$-"D" OR Y$ "d" THEN Z=9 
273 IF Y$ "V" OR Y$ "v" THEN 
274 IF Y$ "X" OR Y$-"x" THEN RE]URN 
275 IF Y$="F" OR Y$-"" THEN Z 11 
276 IF Y$-"W" OR Y$-"" THEN Z-12 
277 ON Z GOSUB 281326288346296 
363,313,403,305,385,321,374 
278 Z-O:OOTO 251 
279 : 
280 REM SENO 
281 : 
282 CLS #I:LOCATE #118&:PRINT #I, 
"SENO 
283 PI A:GOSUB 531:SER SIN(A)FNCH( 
B) : SEI=COS(A) FNSH (B) : A=PI 
284 IF WI<>I THEN LOCATE #1,1,12:PR 
INT #I  "SEN Z- ("; SER; " ) +("SEI; "I ) " 
:VI=SER:V2=SEI:SOSUB 503:GOSUB 179: 
WI=O 
285 RETURN 
286 : 
287 REM COSENO 
288 : 
289 CLS #1:LOCATE #I,17,6:PRINT #I, 
"COSENO 
290 PI=A:GOSUB 531:COR COS<A)$FNCH< 
B):COI -SIN(A)$FNSH(B):A PI 
291 IF WI<>I THEN LOCATE #I,112:PR 
INT #1,"COS Z=( "!COR; ")+(.'';COI;''i)'' 
:VI=COR:V2 COI:SOSUB 503:GOSUB 179: 
WI-0 
292 RETURN 
293 : 
294 REM TANGENTE 
295 : 
296 CLS 01:LOCATE #1166:PRINT #I 
"TANGENTE 
297 WI=I:GOSUB 283:WI=1:GOSUB 290 
298 IF COR=O AND COI=O THEN LOCATE 

OI,I,12:PRINTOI,"TG INFINITO":GOSUB 
179:RETURN 
299 TGR FNDIVR(SER,COR,SEI,COI):TGI 
=FNDIVI(SER,CORSEI,COI) 
300 LOCATE 01,1,12:PRINT OI,"TS Z ( 
";TGR;")+("ITGI")" 
301 V1 TGR:V2-TSI:GOSUB 503:80SUB 
79:WI=O:RETURN 
302 
303 REM COSECANTE 
304 : 
305 CLS #1:LOCATE #1166:PRINT #I, 
"COSECANTE 
306 WI-I:GOSUB 283:1F SER-O AND SEI 
=0 THEN LOCATE #II12:PRINT#I"COS 
EC INFINITO":GOSUB 179:RETURN 
307 CSR FNDIVR(I,SEROSEI):CSI=FND 
IVI(I,SEROSEI) 
308 LOCATE 01112:PRINT #I,"COSEC 
Z (";CSR")+(";CSI;"i)" 
309 VI CSR:V2-CSI:GOSU 503:GOSUB I 
79:W1=O:RETURN 
310 : 
311 REM SECANTE 
312 : 
313 CLS #I:LOCATE #1,17,6:PRINT #I, 
"SECANTE 
314 WI=I:GOSUB 290:IF COR-O AND COl 
0 THEN LOCATE #I,2,12:PRINT#I"SEC 
INFINITO":GOSUB 179:RETURN 
315 SCR=FNDIVR(I,COR,O,COI):SCI=FND 
IVI(I,COR.O,COI) 
I LOCATE #I,I,12:PRINT #1,"SEC Z- 
(";SCR;")+(";SCI;") 
17 VI-SCR:V2=SCI:GOSU 503:GOSUB 
79:I-O:REILIN 
19 RM COTANGEN 
320 : 
21 CLS #1:I.OCATE #115,6:PRINT #I, 
"COTANGENTE 
322 WI-I:GOSUB 283:WI=1:GOSUB 290:I 
F SER=O AND SEI 0 THEN LOCATE #1,1, 
12:PRINT#I,"COTG-INFINITO":GOSUB 17 
9:RETURN 
323 CTR FNDIVR(COR,SER,COI,SEI):CTI 
FNDIVI(COR,SER,COISEI) 
324 lOCATE OI,!I2:PRINT #1,"COTS 
-("CTR;")÷(";CI"i)" 
325 VI CTR:V2-CTI:GOSUB 503:GOSUB I 
79:WI ¢:RETURN 
327 EM ARCOSENO 
N28 • 
. 
329 CLS #1:LOCATE #116,6:PRINT 01, 
"ARCOSENO 
330 IF RA 0 THEN ARSR-O:ARSI O:GOTO 
341 
31 W I:P A:P2-B:P3-RA:P4 AN:P5 AI 
:P6=BI:A-I-PI:PI+P2$P2:B--2PISP2:A 
I :BI-O:GOSUB 159 
332 N=O:GOSUB 76:W O:AI P5:BI=Pb:A 
PI:B-P2:PI-RA:P2-AN:RA-P3:AN=P4 
333 REA=FNREAL(RE(O),IM(O))-B:IMA F 
NIMAG(RE(O),IM(O>)+A:REAI -FNREAL(R 
E(O),IM(O))-B:IMAI=-FNIMAG(RE(O),IM 
(O>)+A 
334 K FNRD(REA, IMA):KI FNRD(REAI,IM 
AI):IF REA 0 THEN IF IMA>O THEN L=P 
I/2 ELSE L-3PI/2 
335 IF REA<>O THEN L FNANG(REA, IMA) 
:F REA<O THEN L-L+PI 
336 IF L<O THEN L=L+2PI 
337 IF REAI=O THEN IF IMAI>O THEN L 
I=PI/2 ELSE li 35PI/2 
33R IF REAI<>O THEN II-FNANG(REAI,I 
MAI):IF REAI<O THEN LI LI÷PI 
339 IF LI<O THEN LI-LI+2PI 
340 ARSRI=LI:ARSII -ILOG(KI):ARSR 
L:ARSI -ILOG(K) 
341 LOCATE OI,I,B:PRINT#I,"SEN"-I Z 
=("ARSR")+(";ARSI;"i)":LOCATE #I, 
I, 12: pR I NT# I, "SEN.- I Z=("ARSRI; ")+ 
< " ; ARSI I  "i ) " 
342 W3 I:VI-ARSR:V2-ARSI:V3=ARSRI:V 
4=ARSII:GOSUB 503:GOSUB 179:RETURN 
343 : 
344 REM ARCOCOSENO 
345 : 
346 CLS #1:LOCAE #1,15,6:PRINT 01 
"RCOCOSENO 
347 IF RA=O THEN ARCR=I:ARCI-O:GOTO 
358 
348 W 1:PI A:P2 B:R3 RA:P4=AN:P5 AI 
:P6=BI:A PIPI-P2P2-1:B 2PIP2:AI 

=2:81 O:GOSUB 159 
349 N-O:GOSUB,76:W O:AI P5:BI 
PIB=P2PI=RA:P2 AN:RA-P3:AN P4 
350 REA FNREAL(RE(O),IM(O))+A:IMA F 
NIMAG(RE(O),IM(O))+B:REAI=-FNREAL(R 
(OIM(O))+A:IMAI=-FNIMAG(RE(O),IM 
¢O))+B 
51  FNRD(REA, IMA)::I FNRD(REAI,IM 
AI):IF REA-O THEN IF IMA>O THEN L-P 
I/2 ELSE L 3PI/2 
352 IF REAI-O THEN IF IMAIO THEN L 
|=F'I/? FISk I 
353 IF REAI<>O IHEN LJ-FNANG(REAI, 
MAI):IF REAI<O THEN LI=LI+PI 
354 IF LI<O THEN LI-LI÷2PI 
355 IF REA<>O THEN L-FNANG(REA, IMA) 
:IF REA<O THEN L-L.mPI 
356 IF L<O THEN L L+2PI 
357 ARCR L:ARCI=-ILOG(K):ARCRI=LI: 
AROI! -ILOG(K1) 
358 LOCATE #1,1,8:PRINT#1,"COS^-I 
Z-("ARCR;")+(";ARCI;"i)":LOCATE 
,II2:PRINT#I,"COS-I Z (";ARCRI:") 
+("ARCII"i)" 
359 W3 I:VI ARCR:V2-ARCI:V3=ARCRI:V 
4=ARCII:GOSUB 503:GOSUB 179:RETURN 
360 : 
361 REM ARCOTANGENTE 
362 : 
363 CLS #I:LOCATE #1,14,6:PRINT 01, 
"ARCOTANSENTE 
364 IF RA=O THEN ARTR=O:ARTI=O:GOTO 
369 
365 REA=FNDIVR(I-B,I+B,A,-A):IMA FN 
DIVI(I-B,I+B,A-A):K=FNRD(REA, IMA): 
IF REA 0 THEN IF IMA>O THEN L PI/2 
ELSE L=3PI/2 
366 IF REA<>O THEN L FNANG(REA, IMA) 
:IF REA<O THEN L L+PI 
367 IF L<O THEN L L+2$PI 
368 ARTR L/2:ARTI -ILOG(K)/2 
369 LOCATE #I,I,B:PRINT#1,"TG'-I Z= 
<";ARTR!")÷("|ARTI;"i)":LOCATE #1,1 
 12: PRINT#I, "TG'-I Z- ("  ARTR+PI ; ") + 
("; ARTI ; "i ) 
370 W3=1:VI ARTR:V2-ARTI:V3=ARTR+PI 
:V4=ARTI:SOSUB 503:GOSUB 179:RETURN 
371 : 
372 REM ARCOCOTANGENTE 
373 : 
374 CLS #1:LOCATE #1,13,6:PRINT #I, 
"ARCOCOTANGENTE 
375 IF RA=O THEN ARCTR PI/2:ARCTI-O 
:GOTO 380 
376 REA FNDIVR(A,A,B+I,B-I):IMA FND 
IVI(A,AB+I,B-I):K FNRD(REAIMA):IF 
REA=O THEN IF IMA>O THEN L=PI/2 EL 
SE L-3PI/2 
377 IF REA<>O THEN L=FNANG(REA, IMA) 
:IF REA<O THEN L=L+PI 
378 IF L<O THEN L L+2PI 
379 ARCTR=L/2:ARCTI--ILOS(K)/2 
3S0 ARCTR$ "CTG'-I Z ("+STR$(ARCTR) 
+")+("+STR$<ARCTI)+"i)":ARCTRI$ "CT 
G^-I Z=("+STR$(ARCTR+PI)+")+("+STR$ 
(ARCTI)÷"I)":LOCATE #1,1,8:PRINT#1, 
ARCTR$:LOCATC 01,1,12:PRINT#1,ARCTR 
15 
381 W3-1:VI-ARCTR:V2 ARCTI:V3-ARCTR 
+PI:V4=ARCTI:GOSUB 503:GOSUB 179:RE 
TURN 
382 : 
83 REM ARCOCOSECANrE 
384 : 
385 CLS #I:LOCATE #I,14,6:PRINT #I 
"ARCOCOSECANTE 
386 IF RA 0 THEN LOCATE #1,4,12:F'RI 
NTOI,"NO EXISTE El. ARCOCOSECANTE DE 
CERO":GOSUB 179:RETURN 
387 W 1:PI A:P2=B:P3-RA:P4 AN:P5 AI 
:P6=BI:A=PIPI-P2P2-1:B 2P1P2:A1 
=:BI=O:GOSUB 159 
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3R8 N=O:GOSUB 76:W (::AI-P5:BI-P6:A= 
F'I:R P?:PI=RA:P2=AN:RA F:AN-F'4 
389 K FNREAL(RF(O),IM(O)I:L FNIMAG( 
RE(O), IM(O)  * I : KI=-FNREAL (RE(O), 
O) ) :! I= -FNIMAG(RE K:) , IM(O) )+I 
390 REA FNDIVR(K,A,L.B) : IMA FNDIVI 
391 K-FNRD(REA, IMA) :K1 FNRB(REA1, IM 
AI):IF REA-O THEN IF IMA>O THEN L-P 
I/2 EkSE L=31PII2 
392 IF REAI=O THEN IF IMAI)O THEN L 
393 IF REA<O THEN L FNANG(REA, IMA) 
: IF REA<O THEN L L+PI 
394 IF REAl< >0 THEN L( FNANG (REAl , I 
MAt): IF REAI<O THEN LI=LI+PI 
395 IF L<O THEN L-L+2$PI 
396 IF LI<O THEN LI=LI+2$PI 
397 ARCCR-L : ARCCI=-ILOGCK) : ARCCRI- 
L( : ARCCI I= - ILOG (KI  
398 LOCATE #I, 1,8:PRINT#Io"COSEC'-I 
Z= ( "  ARCCR: ") + ("  AROCI ; ": ) ":LOCATE 
399 W3=1:VI ARCCR:V2=ARCCI:V3-ARCCR 
I:V4-ARCCII:GOSUB 503:SOSUB 179:RET 
URN 
400 : 
401 REM ARCOSECANTE 
402 : 
403 CLS #(:LOCATE #I156:PRINT #I, 
"ARCOSECANTE 
404 IF RA=O THEN LOCATE #I,5, 12:PRI 
NT#I,"NO EXISTE LA ARCOSECANTE DE C 
ERO":GOSUB 179:RETURN 
405 W-(:P( A:P2 B:P3 RA:P4 AN:P5=AI 
: Pb-BI : A-I -PI TP 1+P2P2: B--2$P I :P2: A 
I=2: BI=O: GOSUB 159 
4D6 N-O:GOSUB 7b:W O:AI P5:BI-P6:A= 
PI:B P2:PI=RA:P2 AN:RA P3:AN-P4 
407 K=FNREAL(RE(O), IM(O))÷I:L=FNIMA 
G (RE(O) , IM(O) ) : KI=-FNREAL (RE (0) , IM 
D) )+I :L I=-FNIMAG (RE (0) , IM(O) ) 
408 REA=FNDIVR(K,A,L,B) :IMA FNDIVI ( 
K,A,L, B) :REAI-FNDIVR (KI ,A,L1, B) : IMA 
I=FNDIVI <KI , A,LI, B) 
409 K FNRD(REA, IMA) :KI=FNRD:.REAI, IM 
At) : IF REA=O THEN IF IMA'O THEN L P 
I/2 ELSE L=3PI/2 
410 IF REAI-O THEN IF IMAI>O THEN L 
I=PI/? El SF |.I 3PI/2 
411 IF REA<'O THEN L=FNANG(REAIMA) 
: IF REA<D THEN L L+PI 
412 IF REAI<>O THEN LI=FNANS(REAI,I 
MAI):IF REAI<O THEN LI=LI+PI 
413 IF L<O THEN L-L+2$PI 
14 IF LI<O THEN L( LI'2#:PI 
415 ARCSR=L : ARCS I - I $ LOG (K) : ARCSR 
L I:APCSI 1 -I LOGIKI) 
416 LOCATE #I, (,8:PRINT#I, "SEC-I 
=("; ARCSR; "+(";ARCSI; " ) ":LOCATE # 
1,1,12:PRINT#I"SEC'-I Z (";ARCSR+P 
417 W3 I:VI-ARCSR:V2-ARCSI:V3=ARCSR 
I:V4 ARCSII:GOSUB 503:GOSUB 179;RET 
LJRN 
19 REM MENU MODULO Y ARGUMENTO 
420 : 
421 CLS:CLS #(:LOCATE #I,11,2:PRINT 
#I, "MODULO Y ARGUMENTO" 
22 LOCATE 41, 16,4:PRINI#1, "OPC!ONE 
423 L (CIE 41 , IO,9:FRIH141 . "MOD/AHG 
424 i OCATE #I, 10, 13:PRINT#I, "RE/IM 
OD/ARG";STRING$ (S, ". ") ; "R" 
425 LOCATE 41, 10, 17:P6'INT4!. "RETORN 
0 MENU";STRING$(9, ". ") ; "X" 
426 7 (:LOEATE 4,2:PFINT"ELISE OG'C 
47 Y$ INKEY$: IF ¥$ "" THEN 427 
178 IF Y$="R" OR Y$ "r" THEN 
? IF Y$-"M" R Y$ "m" THEN Z 2 
4.30 IF Y$="X" OR Y$ "):" THEN RETURN 
431 IF =0 THEN 427 
4"2 ON Z GOSUB 181,434 
437 Z=C:GOTO 420 
434 : 
4"$5 REM MOD/ARG RE/IM 
436 : 
37 CLS #1:LOCATE #1,14,2:F'RINT 
"MOD/ARG" ; CHR$ <243) ; "RE/IM" 
438 Z O'CLS:LOCATE 9,2:PRINT"GRADOS 
0 RADIANES (G/R) " 
439 Y$-INKEY$: IF Y$ "" THEN 439 

440 IF Y$-"G" OR Y$ "g" THEN Z-(:DE 
G:LOCATE #I, 17,4:PRINT #I , "GRADOS 
441 IF Y$="R" OR Y$-"r" THEN Z-2:RA 
D:LOCATE #1, 16,4:PRINT #Io"RADIANES 
442 IF Z-O THEN 39 
443 CLS:[OCATE 15,1:PRINT"INTRODUCE 
44 LOCATE 17,2:INPUT "MOD ",RAt:GO 
SUB 488 
45 CLS:LOCATE 15, (:PRINT"INTRODUCE 
":LOCATE 17,?:INPUT "ARG ",AN( 
446 GOSUB 488:1F RAIO THEN A( 
O: GOTO 448 
447 AI-FNREAL (RAt , AN( ) : BI-FNI MAG (RA 
(,AN() 
448 LOCATE #(,2,7:PRINT #(,"REAL 
A( 
449 LOCATE #I ,2,14:PRINT #1,"IMAG " 
:El 
450 IF  I THEN ANI-ANI:PI/180:RAD 
451 VI=AI:V2 BI:GOSUB 503:GOSUB 179 
: RETURN 
45'2 : 
453 REM REPRESENTACION GRAFICA 
454 : 
455 SYMBOL AFTER 254:SYMBOL 254,0 
98,255, 57,0,255,2550 
456 CLS:CLS #(:LOCATE #1,9,2:PRINT 
#I, "REPRESENTACION GRAFICA" 
457 LOCAT # I . I b, 4 : PR I NT # I , "OPC I ONE 
S" 
458 LOCATE #I,IO8:PRINT#I,"Z & 
; STRINGS (I 3, ". ") ; "I" 
459 LOCATE 41,10,11:PRINT#I "SOLO Z 
";STRINGS(13,".");"2" 
4C: LOCATE #I, 10,14:PRINT#1,"SOLO Z 
(";STRINGS(12,".");"3" 
461 ( OCATE #I . I0, 17:PRINT#I, "RETORN 
0 MENU";STRING$(7,".");"X" 
462 Z=O: LOCATE 14,2:PRINT"ELIGE OPC 
I ON" 
4b WHILF INk'EY$<>"":WEND 
464 Y$-INKEY$: IF Y$ "" THEN 44 
465 IF Y$="X" OR Y$-",:" HEN RETURN 
#6b IF V$="i ''' THEN Z-I:GR-A:GIBOR 
I =6: 01 I=0 
67 I r y$ "I" THEN 7-1:GR-A:GI=B:GR 
l-A1" G: I=BI 
468 IF Y$ "'" IHN Z 
I At:OIl=HI 
469 IF  0 THEN 464 
470 Z=O:MODE 2 
471 WINOOW #1, bO, 80, 24, 25: WINDOW 
,60,80I22 
472 BORDER O: TAG 
473 INK I, 13:PAPER {::GRAPHICS PAPER 
0 
474 GRAPHICS PEN I 
475 LOCATE #27,2:PRINT#2,"Z=A+Bi": 
LOCATE #2, I 4:PRINT 42, "A ";A:LOCAT 
E #2 I 5: PRINT#2, "B 
476 LOCATE #2,5,S:PRINT#2, "Z1 AI+BI 
":LOCATE #2IIO:PRINT #2"AI "AI 
:LOCATE 42, I, ((:PRINT#2, "El 
477 t.OCATE #25, 14: :PRINT#2, 
....... ":LOCATE #2,5 I:PRINT#2, "ZI 
478 ORIGIN 202,200 
479 MOVE 200,O:DRAW -200,O:MOVE 02 
O0:DRAW O, -200: MOVE 5,38: DRAW -5,38 
:MOVE 5,76:DRAW -576:MOVE 5 114:DR 
AW -5 114 
4SO MOVE 5,152:DRAW -=,.. 152:MOVE 51 
90: DRAW -5 190: MOVE 5 -38: DRAW -5, - 
38". MOVE =,.. -76: DRAW -5 -76: MOVE 5, - I 
14: DRAW -5, -I 14: MOVE 5, -152: DRAW -5 
, - 152: MOVE ,.J - 190: DRAW -5, - 190 
481 MOVE 38,5:DRAW 38,-5:MOVE 76,5: 
DRAW 76.-5:MOVE ((4,5:DRAW 114-5:M 
OVE 152,5:DRAW 152,-5:MOVE 190,5:DR 
AW 190, -5 
482 MOVE -38 5: DRAW -38, -5: MOVE -76 
,5:DRAW -76,-5:MOVE -((4,5:DRAW -11 
4. -5: MOVE -152,5:DRAW -152, -5: MOVE 
-I 90.5: DRAW -190 -5 
483 MAI=MAX(ABS(A),ABS(B)):MAI-MAX 
ASS(At) ABS(BI)):IF MAX(MAIMAI)-O 
THEN 487 ELSE MA 190/MAX(MAI,MA1) 
484 MOVE O,O:DRAW MATGR,MA:GI:MASK 
120:MOVE O,r:DRAW MAGRIMAGII:MAS 
K 255 
4R5 DI=MAX(MAI,MAI ) :LOCATE #26, 18: 
PRINT #2, "DIVISION" 
486 IF DI/5-ROUND(DI/5,2) THEN LOCA 
TE #2,119:PRINT#2," ";D|/5 ELSE LO 
CATE #2, I, 19:PRINT#2,CHR$(254) ;ROUN 
D(D1/52) 

487 I.OCATE #Io 14,2:PRINT #I,"PULSA 
UNA TECLA" : CLEAR INPUT: CALL &BBO-: G 
OSUB 494:GOSUB |31 :GOTO 456 
4R8 : 
489 REM VENTANA 2 
490 : 
491 CLS #3:LOCATE #3,2,1:PRINT #3," 
Z( MODEXP(ARGi)" 
492 PRINT #,"OD-":RAI:PRINT 
RG ": ANI 
493 RETURN 
494 : 
49M REM VENTANAS 
496 : 
497 MODE I : BORDER 3 
4-98 WINDOW #I,I,40I,19:IHK 3,1:INK 
?,9:PEN 4,3:PAPER #1,2:CLS #I 
499 INN i,2":|.I!NDOW I40,20,22:1NK 
O,3:PEN ;:'APER n'CLS 
50( WINDOW #?,,20,23.25:PEN #2, 3:P 
F'F' Itg.?;ClS #2 
5C WINDOW 43,21,40,23,25:PEN 
PAF'FR fl3,2:CLS #3 
5(F " RFT RN 
50a REM AI_MACENA NUMEF(O 
505 : 
506 CLS:I OCATE 3,2:PRINT "QUIERES A 
LMACENAR E[ NUMERO? (S/N) " 
507 Y$-INKEYS: IF Y$ ..... THEN 507 
508 IF Y$ "N" OR Y$ "n" THEN RETURN 
509 IF Y$-"S" OR Y$ "s" THEN 510 EL 
SE GOTO 507 
510 IF W2-! THEN CLS:LOCATE 17,2:1N 
FUT "CUAL:",C: IF C}AI OR C< 0 THEN 
LOCATE 11,2:PINT "NO EXISTE LA RAI 
Z ";C:CALL &BBO6:GOTO 510 
511 IF W3=I THEN CLS:LOCATE 17,2:1N 
PUT "CUAL: ",C: IF C> 3 OR C< 0 THEN 
LOCATE I,2:PRINT "NO EXISTE ":CALL 
&Br6:GOTO 51 ! 
512 C  S:[OCATE 13,2:F'RINT "EN Z 0 Z 
I (0/I) 
513 Y$ INb;EY$:IF Y$ "" THEN 513 
514 IF Y$="O" THEN IF W2.:>I AND W3( 
I THEN A VI:B V2:GOSUB 159:GOTO 52 
3 ELSE 516 
515 GOTO 518 
516 IF W2 I THEN A FNREAL(RE(C-I),I 
M(C-I ) ) : B=FNIMAG (RE (C-I  , IM (C-I) ) 
OSUB 159:GOTO 523 
.517 IF W3-I THEN IF C 1 THEN A VI:B 
=V2:GOSUB 159:GOTO 523 ELSE A=V3:B= 
V4:GOSUB 159:GOTO 523 
518 IF Y$ "|" THEN IF W2<>I AND 
>I THEN A( VI:BI V2:GOSUB 171:GOTO 
523 FLSE 52{: 
519 GOTO 513 
520 IF W2=I THEN A( FNREAL(RE(C-I), 
IM(C-I   : BI=FNIMAG (RE (C-I)  IM (C-I) 
:GOSUB 17:SOT0 523 
521 IF W3 I THEN IF C-I THEN AI-VI: 
BI=V2:GOSUB 171:GOTO 523 ELSE A1 V3 
:BI=V4:GOSU 171:GOTO 523 
522 GOTO 513 
523 GOSUB 131 
5.94 IF W2<>I AND W3<>! THEN 530 
525 LOCATE 13,2:PRINT"ALGUNO MAS (S 
/N) " 
526 Y$=TNL'EY$:IF Y$ "" THEN 526 
527 IF Y$ "S" OR Y$ "s" THEN 510 
528 IF Y$ "N" OR Y$"n" THEN 530 
529 GOTO 526 
530 W20:W3=O:RETURN 
531 IF ABS(A)200000 THEN P2 INT(A/ 
(2:PI) :A A-2PITP2 
532 RETURN 
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• 

J 1 

Una de los m6s preshgiams y temple:as 'hojos de ¢61¢ulo" clel 
mundo. R6picla y vers,til, ofrece preslaciones, coma la .4e rolac'o- 
nor varies hojqs enlre sl, qua no son frecuen:es. Lo copocidad de 
eieculer ordeoaciones olfebticas o numricas, sus po$ibihclades an 
cuanlo a formate an ntalla y an impresora, los men0s en panta- 
lie y la poten¢ia de c61culo, son caracterlsticas distintivas y dosta- 
cables de MULTIPLAN. 
PVP: 15.100.- Pts. (+ IVA) 

Reconociclo coma el est6nclar mundial de los lenguales inlrpretes 
ro microordenaderas. F6cil de oprondor y utilizer. 
PVP: 15,100," Pts. (+ IVA) 

Totalmenle compatible con el ME,ASIC Interpre:er pare con uno ve- 
lee'dad de ejecuci6n de 3 o 10 races m6s r6pido. Irocluce el cdi- 
go fuente a c6digo obieto y permite una ulilizaci6n m6s eficoz del 
espacio, 
PVP: 15,100.- Ptas. (+ 

Lenguaie COE'OL seg0n el est6nclor ANSI, especialmen- 
te @il pro manoior grondes vdmenes de dales. 
PVP: 48,500.- Ptas. (+ IVA) 

FIoxlble pragroma de ordenoci6n segun la t&nica ca e. 
insertion blnaria, ulihzable independleniemento o indul- 
hie an programas escdtos en MS COBOl., 
PVP: 15.100." Pres. I+ IVA) 

• 
El lenguaje m6s ulilizada en aplicczdones cinefificos y do ingenieda, 
es una polente implemenloc[6n del ANSI-FORTRAN X3,9 
PVP: 24,900.- Ptas. (+ IVA) 

Un complelo quee de desarrollo qua induye: MS-MACRO AS- 
SEMBLER; MS-LINK, MS-LIE., MS-CREF y OEE,UG 
PVP: 12.0'0.- Pta, (+ IVA) 

ASHTON .TATE 

El Generaclor de Programos par oxcelencio. Perm[te crear bases de 
clotos reladonados a partir de ¢omandos sent'lies y sin requerir co 
nocimientos de progromad6n. Los aplicaciones de dBASE II son in- 
contebles y code usuario pueclo doserrol[or las qua meier so adap- 
Ion o sus necesldodes: ficheros ' mailings, contabilidodes, n6minas, 
conlrol de cos:as, conlrol de olmocn, facturaci6n, etc, Amplmmen- 
le acreditedo coma uno do los programos m6s 0tiles y r.ecomenda- 
bias d.' ,.. - exi.ster ..are ,." roordenodores. "onul e" ca#e- 
PVP: 17.800,- Pres. (+ IVA) 

D 
Progrema interaclivo pore le creoci6n y echci6n de grficos y dlo- 
gramas. Ires elemenlo bsices -llneas, :axle y simbolos- son uti- 
lizeclos pare proclucir grbFicos de alia cehdad,,, loges, diagromas 
de bloquos, diagromas do fluio, o1¢. Los slmbolos, tlpos do letra y 
oshlos de lineas, pueden alterarse y mificarse e vduntod clel 
usuario. 
PVP: 1'.100.- Pts. (+ IVA} 

Gonorador do 9r6ficos -de llneas, barros, columnes y de pastel- 
de muy sencillo manaio. Permlte incluir Zextos y leyendas con gran 
flexblrdad cle creod6n y odici6n. 
PVP: 15.100.- Ptas. (+ IVA) 
El m6s r6piclo PASCAL'xistenl.iri-imi01om'taci6n ¢o.letodol 
ost,ndar ISO. Un compilador de c6dlgo ntivo qua genera an for- 
mate reulicable pare user con su montador de enlace llmker]. 
PVP: 15.100." Pies, (+ IVA' 

Versi6n mejorodo del cl6sico lenguaie CE,ASIC, con m,or vdoci- 
clad de ejecucin y altamnte flexible dseado espedalmente pore 
el desarrolla de programas de E,estion, Induye el hnker I.K.E,0, qua 
cambia la sahda del compdador con la ru:inas de bbl.o:eca y per- 
.." e el encadenamiento de mdulos 
'VP.' 15.100.- Pres.--(+ I.V.A.) 
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DESPEG CON MICROBYTE ! ° 

SPITFIRE 40 
Trasl.date a los aos 
cuarenta, segunda 
guerra mundial. Ponte 
a los mandos de un 
caza Spitfire de la po- 
ca y siente tQ mismo la 
sensaci6n de volar y 
combatir en aquellos 
aparatos donde la peri- 
cia del piloto erael no- 
venta y cinco por den- 

L  
to del xito. S61o tu sangre fria y habilidad te salvar&n 
del desastre. 

JUMP JET 
O ANIROG 
Vive la aventura de pi- 
Iotar un Harrier. Te en- 
cuentras en la cubierta 

---' 'J de un portaviones en 
medio del oano. Tienes que despegar vertical- 
mente, alejarte de la nave y, de ,repente, te encon- 
trar&s solo en el aire, sin ver ot  cosa tlue agua 
hasta que aparezcan los aviones enemigos dis- 
puestos a destruirte. Defindete, lu ha por la 
supervivencia.., iiiELLOS O TU!!!. 

P.V.P. Cassette, 2.200 Pts. Disco, 2.900 Pts. 

P.V.P. Cassette, 2.200 Pts. Disco, 2.900 Pts, 

PRODUCE 
DISTRIBUYE 
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SQ L E A YUDA RA 
A CREAR $U$ CANTATAS 

Parece que ha pasado mucho tiempo desde que comenzamos 
nuestra exploraci6n sabre los comandos de sonido de/Basic 
del Amstrad. En anteriores art/culos hemos descubierto c6mo 
funcionan los par6metros de canal, tono, duration y volumen 
y tambin hemos tocado las envolventes del volumen y tono. 

conseguiremos que nos devuelva: 

00000100 

que es la versi6n binaria del nOmero decimal 
4. La Figura I nos muestra al decimal 4 coma 
un nOmero binario y adem6s nos indica la po- 
sici6n de cada uno de sus bits. 

Byte binario 0 0 0 0 0 1 0 0 
Figura I: Posiciones de los bit del binario de 4 

jlll lcontinuaci6n de todo 
esto hemos revisado otra vez el par6metro de 
canal y estudiamos Io que era un bit significa- 
tivo, comprendiendo c6mo se podrian retener, 
liberar o sincronizar notas en los diferentes ca- 
nales. 
Y ahora, en este gltimo articulo, echaremos 
un vistazo a la funci6n SQ. 
A primera vista el comando SQ podria pa- 
recernos la funci6n matem6tica raiz cuadra- 
da de un n0mero. Sin embargo, su finalidad 
es revisar la cola de espera del sonido (Sound 
Queue), de ahi el Ilamarse SQ. Si no tiene muy 
clara Io que es la cola de un canal de sonido, 
repase los articulos que tratan sabre el tema 
en anteriores n0meros de la revista. 
SQ se utiliza para obtener inFormaci6n sa- 
bre el estado en que se encuentra un canal. 
Puede decirnos, par ejemplo, si est6 sonando 
un nota par 61 -no siempre nos resulta evi- 
dente si estamos utilizando tres canales a la 
vez- cuantos espacios libres hay en la cola 
o si la primera nota est retenida o ¢itada 
con otra. 
Tener toda esta informaci6n es extremada- 
mente gtil cuando estamos intentando com- 
prender par qu nuestras <<obras maes. 
tras)) no funcionan tal coma habiamos pre- 
vista. 

SQ y bits 
significativos 

Cuando quiera conocer alga sabre un ca- 
nal use SQ, seguido del par6metro de canal 
entre parntesis. De este modo, cuando ne- 
cesite saber alga sabre el canal A utilice: 

PRINT SQ(1) 

y, par supuesto, pulse la tecla Enter. Coma no 
tenemos ninguna nota sonando, nos encontra- 

mos con que nos aparece en la pantalla el n0- 
mero 4. Encontraremos que con: 
PRINT SQ(2) 
y 
PRINT SQ(4) 
nos devuelve el mismo resultado. Buena, el nO- 
mero es fijo pero, ;.que quiere decir? El 
significado de esta respuesta es: 
- Que no hay ninguna nora sonando. 
- Que no hay ninguna otra retenida al 
principio de la cola de espera del canal de so- 
nido. 
- La primera nota de la cola, si la hay, no 
est6 citada con otra de otro canal. 
- Hay cuatro espacios libres en la cola de 
sonido. 
Es mucha informaci6n la que hemos conse- 
guido con un solo nOmero, .verdad? La ra- 
z6n de que una Onica cifra pueda arrojar tanta 
luz sabre el estado de la cola de espera de un 
canal es porque el n0mero devuelto par SQ 
es un bit significativo,. La Tabla I has mues- 
tra Io que has da a entender cada uno de elias. 

NOmero Bit 
1 0 
2 1 
4 2 
8 3 
16 4 
32 5 
64 6 
128 7 

Activado aparece: 

Espacios en la cola 
Espacios en la cola 
Espacios en la cola 
Citada con A 
Citada con B 
Citada con C 
Primera nota retenida 
Canal sonando 

Tabla I: Bit significativo 

Asi que vamos a deducir Io que quiere de- 
cir el ngmero 4 que hemos obtenido con: 
PRINT SQ(1) 
cuando no est6 sonando ninguna nora par el 
canal A. De cualquier modo, ya que has va- 
mos a ocupar de analizar un bit significativo, 
tiene sentido usar la funci6n BINS para trans- 
formar el ngmero en sus 8 digitos binarios. De 
este modo, y siempre que no suene ninguna 
nota par el canal A, cuando usemos: 
PRINT BINS(SQ(1),8) 

Si ahora combinamos el data que hay en la 
Figura I con la informaci6n que nos da la Ta- 
bla I nos ser6 posible enterarnos de muchas 
cosas acerca del estado del canal A partien- 
do de un sencillo 4. 
Vamos a analizar el bit 7. Es un 0, par Io 
que deducimos que no hay sonando ninguna 
nora. Cuando Io est6 hacienda alguna de bit, 
o digito binario, deber estar activado y el va- 
lor decimal correspondiente ser al menos 
128, e incluso puede ser mayor dependiendo 
de los otros bits que forman parte del byte. 
El bit 6 es tambin 0, y nos dice que la pri- 
mera nota de la cola no est6 retenida. Si el 
bit estuviera activado esto significaria que di- 
cha nota est esperando a que el comando RE- 
LEASE la libre y entonces sonar. 
Tambi6n hay ceros en los bits de las posi- 
ciones 3, 4 y 5. Con esto, la funci6n SQ nos 
est indicando que la primera nota de la cola 
de sonido, si es que la hubiese, no est6 citada 
con ninguna otra. 
Si el bit 5 hubiese estado activado deduci- 
riamos que la primera nora del canal est6 es- 
perando para sincronizarse con otra del ca- 
nal C. El bit 4 activado quiere decir que est 
citada con una del B. 
Coma ya puede suponer, un 1 en el bit 3 
nos indica que la nota inicial est esperando 
otra par el canal A. 

Cuntos huecos quedan 
en la cola de espera? 

Los tres Oltimos bils se utilizan precisamen- 
te para sefialar el nOmero de huecos libres que 
hay en la cola de espera. En este caso los bits 
2, 1 y 0 tienen el nOmero binario 100, que es 
el decimal 4. Lo que demuestra, coma podia- 
mos esperar ya que no hay ninguna nora re- 
produci6ndose, que hay cuatro espacios libres 
en la cola de sonido de un determinado ca- 
nal. 
Si los tres Oltimos bits fuesen 011, significa- 
ria que hay 3 espacios libres en la cola, si son 
010.2. Vamos a dejarle que adivine cu6ntas 
lugares sin utilizar hay cuando los tres Oltimos 
bits son 001 y 000. 
Coma podemos observar, el nOmero devuel- 
to par SQ contiene ya una gran cantidad de 
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informaci6n aunque el Amstrad no haya 
producido todavia ning0n sonido. 
Avanzaremos un poco para mostrar Io que 
la funci6n SQ es capaz de hacer cuando el mi- 
cro est6 fabricando sonidos, pero primero 
le aconsejamos definir la tecla Enter con: 
KEY 139,"SOUND 135,0,0,0"+CHRS(13) 
Utilicela para limpiar los canales de notas 
extrafias cuando Ileguemos a un atasco! 
Y ahora, i a producir sonidos Vamos a ge- 
nerar una nota en el canal A con: 
SOUND 1,200,2000,7 
y veamos qu6 puede decirnos SQ al respec- 
to. 
Si consigue hacerlo mientras est sonando 
la nota, averiguar6 que tecleando: 
PRINT SQ(1) 
le aparecer6 en la pantalla el ngmero 132 pa- 
ra desgracia suya. Imaginamos que estar6 de 
acuerdo con nosotros en que su equivalente 
binario nos da mayor informaci6n. Descubri- 
r6 un hbil: PRINT BINS(SQ(1),8) 
har6 este trabajo par nosotros, devolvi6ndo- 
nos el ngmero binario: 10000100 
La Figura II nos muestra este valor junto con 
el correspondiente a coda bit. 

I N0mero de bit 7 6 5 4  2 1 0' 
Byte bnaro 1 0 0 0 0 1 0 0 
Figura Ih Posiciones de bits para 
el binario de 132 

Con ella y con la Tabla I ser6 capaz de ver 
que coma el bit 7 est6 activo, el canal est6 tra- 
bajando. Ya que los bits 2, 1 y 0 contienen el 
n0mero binario 100, no nos cage de sorpre- 
sa que haya cuatro sobrantes en la cola de so- 
nido. 
Ahora vamos a dejar dos notas sucesivas en 
el canal A y veamos qu nos tiene que deck 
SQ. Introduzca: SOUND 1,200,2000,7 
seguido de: SOUND 1,300,1000,7 
con Io que tendremos dos largas notas, la se- 
gunda de un tono ms bajo. 
Mientras est sonando la primera: 
PRINT SQ(1) 
nos devolver6 el n0mero 131. Usando: 
PRINT BNS(SQfl),8) 
has da la e×presi6n binaria de 131, mucho m6s 
0til, devolvindonos: 10000011 
Nos indica que el canal A est trabajando 
(el bit 7 est6 activado) y que s61o hay tres es- 
pacios libres en la cola de espera (bits 2 a 0). 
Se corresponde con Io que sabemos ya que po- 
demos air la nota y, puesto que la segunda 
a0n no ha comenzado todavia estar6 en la co- 
la. De los cuatro espacios libres originales ya 
s61o nos quedan tres. 
Tan pronto coma la segunda nora comien- 
ce a sonar, teclee: 
PRINT BIN$(SQ(1),8) 

otra vez y ver6 que el resultado es ahora: 
10000100 
De nuevo el bit 7, conteniendo un 1, nos est6 
diciendo que el canal permanece activo. Sin 
embargo, ahora que la primera nota ha ter- 
minado y empieza a sonar la segunda, volve- 
mos a tener cuatro huecos desocupados en la 
cola de espera. Le recomendamos que colo- 
queen ella dos, tres o cuatro notas y vea cud- 
les son los resultados en cada caso con: 
PRINT BIN$(SQ(1),8) 
seg0n vayan saJiendo los notas de la cola y 
suenen. 
Y, qu hay de los bits 3, 4 y 5? Son los que 
has indican si una nota est esperando para 
sincronizarse con una de otro canal o no. Lira- 
pie la cola de espera del canal A pulsando la 
teda ENTER y escriba: 
SOUN 17,200,1000,7 
Define una nota de tono 200, con una du- 
raci6n de 10 segundos y volumen 7 en la cola 
del canal A, cit6ndola con una del canal B. La 
Tabla II podda refrescar nuestra memoria sa- 
bre todo Io relativo al parmetro de canal. 

N0mero Bit Resultado 
Activ. 
1 0 Usa canal A' 
2 1 Usa canal B 
4 2 Usa canal C 
8 3 Citada con A 
16 4 Citada con B 
32 5 Citada con C 
64 6 Retenida hasta RELEASE 
128 7 Limpia el canal 

Tabla lh Par6metros de canal 
valores y acciones 

Si ahora utilizamos: PRINT BIN$(SQ(1),8) 
produce: 00010011 
El bit 7 es cero, no hay ninguna nota que 
est sonando, la primera nota no est reteni- 
do, ya que el bit 6 tambi6n est6 a cero. El bit 
5 es 0 debido a que la nota no est citada con 
ninguna del canal C. Sin embargo, si Io est6 
con una del B, par eso el bit 4 si est activa- 
do. Par razones obvias el bit 3, que indica una 
cita con el canal A, est6 desactivado. 
El n0mero binario formado par los bits 2, 
I y 0 es 011, que quiere decir que hay tres hue- 
cos libres en la cola de espera. El cuarto es- 
pacio estar6 ocupado par nuestra nora que es- 
t6 aguardando desesperadamente una del ca- 
nal B. S6quela de este lamentable estado con: 
SOUND 10,1,1,1 
y pasemos a conseguir colocar una nota en 
el canal B para citarla con otra del canal A. 
Lo hacemos mediante: SO U N D 10,200,1000,7 
En esta ocasi6n: PRINT BINS(SQ(2),8) 
nos dar6:00001011 
Fijese n el 2 que est6 entre par6ntesis de- 

tr6s de SQ. Estamos relacionando la funci6n 
con el canal B. 
Par el momenta no debemos tener dificul- 
tades en asociar el hecho de que porque la 
nora est6 citada con una del canal A, se acti- 
ve el bit 3. Coma en el caso anterior los tres 
Oltimos bits nos indican que hay tres espacios 
libres en la cola. 
SOUND 17,1,1,1 
proporciona a la nora la pareja adecuada. 
Para mostrarnos el significado del bit 5, te- 
clee: 
SOUND 34,200,1000,7 
que coloca una nota en la cola de espera del 
canal B, cit6ndola con una del C. Ahora: 
PRINT BINS(SQ(2),8) 
has da: 00100011 
demostrondo con ella que cuando citamos una 
nota con otra del canal C, el bit ,5 se pone a 
I. 
Pasemos a examinar el bit 6. Se activa cuan- 
do la primera nora de Ja cola est6 retenida. 
Vamos a colocar una en la del canal A y pa- 
rarJa alli con: SOUND 65,200,1000,7 
y preguntando par: 
PRINT BINS(SQ(1),8) 
obtendremos: 01000011 
Coma se puede ver, el bit 6 est6 activado, 
indicando que la primera nora del canal A est6 
retenida. 
Si ahora introducimos: RELEASE 1 
observar6 que: PRINT BIN$(SQ(1),8) 
devuelve: 10000100 
cuando haya terminado. 

E1 Iit 7 act6a 
como un switch 

Habr6 notado que de nuevo el bit 7 se acti- 
va cuando el canal est trabajando, esto es, 
cuando est6 reproduciendo la nota. Si real- 
mente desea comprobar sus conocimientos sa- 
bre SQ, intente usarlo con canales en los que 
las primeras notas no s61o est6n retenidas, si- 
no que tambi6n est6n esperando para sincro- 
nizarse con otras. Luego vea qu6 ocurre cuan- 
do liberamos esas notas de sus dobles atadu- 
ras. 
SQ no s61o se utiliza para ver el estado en 
el que se encuentran y corregir las colas de 
espera de cada canal. 
Tambi6n se puede usar para solucionar cier- 
tas pegas o inconvenientes con los que nos en- 
contramos cuando utilizamos programas can 
sonido. El Programa I muestra Io que quere- 
mos decir. 
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Como ver6 cuando ejecute el programa, los 
comandos PRINT y SOUND no van acompa- 
ados. Los n0meros avanzan hasta el seis y 
luego se aumenta uno cada intervalo de un 
segundo. Mientras tanto las notas est6n sonan- 
do y contin0an despu6s que aparezca el men- 
saje Ready. 
Recordar6 de antes que esto es el resulta- 
do de tener una cola de espera Ilena que re- 
tiene la ejecuci6n del resto de instrucciones Ba- 
sic. 
Bueno, pues con SQ podemos remediarlo in- 
troduciendo en el micro un WHILE... WEND 
retardador que retenga el bucle mientras es- 
t6 sonando la nota. Lo hacemos con una linea 
parecida a: 
45 WHILE SQ(1)÷ =127: WEND 

I0 REM F'ROGRAMA I 
20 FOR ruido=1 TO 10 
30 PRINT "Bucle numero "ruido 
40 SOIIND I lOruido s I007 
50 NEXT ruido 

Cuando la nota suena del bucle WHILE... 
WEND hace ciclos ingtiles frenando al FOR... 
NEXT. Por supuesto que al finalizar la nota 
tambi6n Io hace el bucte retardador, y el pro- 
grama continga. Sigue con los mensajes y las 
notas escalonadas, pero ha retrasado el pro- 
grama Basic. 
El Programa II presenta otro problema. 
Con 61 escucharemos 10 notas, una tras 
otra. Pero por un momento suponga que Io 
que ahora queremos es que esta maravillosa 
melodia est sonando mientras el micro resuel- 
ve alguna operaci6n matem6tica. La finalidad 
podria ser mantenernos entretenidos mientras 
dure, por ejemplo, una aburrida colecci6n de 
sumas. C6mo podemos hacerlo. Si Io que ne- 
cesita es que nuestra melodia acompae a la 
tabla de multiplicar del nOmero dos puede pro- 
bar aadiendo una linea semejante a: 
25 PRINT 2*sonido 
pero la idea no es del todo buena. Lo que bus- 
camos es un mlodo que tiene el Amstrad 
para poder hacer las dos cosas al mismo tiem- 

10 REM PROGRAMA 
20 FOR ruido=1 TO I0 
30 READ fond 
40 SOUND 1.tono. lO0,7 
50 NEXT ruido 
60 DATA I00.200300400500 
70 DATA 600.400300,200I00 

po, tocando una canci6n y ejecutando un pro- 
grama Basic. No es tan dificil como parece. 
Todo Io que necesitamos es el comando ON 
SQ0 GOSUB. El Programa III nos ensea la 
manera de hacerlo. 
En este caso van apareciendo una serie de 
mensajes mientras escuchamos una dulce me- 
Iodim y todo se Io debemos a ON SQ GO- 
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SUB. Vemos el programa m6s detalladamen- 
te. 
En la linea 20 aparece por primera vez el 
nuevo comando. Todo Io que hace es decirle 
al mstrad que cuando haya un lugar libre 
en la cola de espera del canal A interrumpa 
momentneamente Io que est6 haciendo y va- 
ya a la subrutina especificada por el ngmero 
de linea. 
El ngmero entre parntesis detr6s de SQ in- 
dica qu canal es el que vamos a utilizar pa- 
ra producir la interrupci6n. Tan pronto com 
se haya eiecutado la subrutina, el programa 
regresa a la linea donde se habia quedado. 
En otras palabras, ON SQ GOSUB activa 
una interrupci6n. Cuando se cumple la con- 
dici6n -un espacio libre en la cola de espera 
del canal apropiado- el micro detiene Io que 
estaba haciendo para luego saltar a la subru- 
tina especificada, obedece las instrucciones 
que alli encuentra, y regresa al lugar donde 
se habia quedado. Mientras la subrutina sea 
corta y las interrupciones escasas y sbparadas 
entre si, el usuario casi nunca notar los cor- 
tes. 

ID REM PROGRAMA 
20 ON SO(1) GOSUB 70 
30 WHILE NOT verdadero 
40 PRINT"E1Amstrad esta haciendo 
50 WEND 
60 REM rutina produciendo son,do 
70 READ tono 
80 IF tono=O THEN RESTORE:GOTO 70 
90 SOUND 1tono, 100,7 
100 ON SQ(1) GOSUB 70:RETURN 
110 DATA I03050.7090 
120 DATA 8070b0,50,40,0 

Puesto que la linea 20 ha activado una in- 
terrupci6n y como actualmente no hay nada 
esperando en la cola del canal A, el progra- 
mava inmediatamente a la subrutina de la li- 
nea 70. Alli lee un valor la variable dono de 
los datos incluidos en las lineas 110 y 120 y 
usa el comando SOUND de la linea 90 para 
reproducir una nota. 
A continuaci6n, mientras est6 sonando la 
nora el RETURN de la linea 100 devuelve al 
micro al programa principal, pero s61o des- 
pu6s de activar otra interrupci6n con ON SQ 
GOSUB. Ahora espera hasta que haya un 
nuevo espacio libre. En realidad las primeras 
veces que se ejecuta la subrutina la interrup- 
ci6n se pondr en marcha enseguida ya que, 
al principio, hay cuatro espacios libres vacios 
esperando Ilenarse. Despu6s habr que espe- 
rar hasta que una de las notas termine y apa- 
rezca un hueco en la cola. 
Cuando ha terminado la interrupci6n el mi- 
cro regresa al interminable WHILE... WEND 
formado por las lineas 30 y 50 que imprime 
un mensaje mientras est sonando la nota. Tan 
pronto como termina una de elias y queda es- 
pacio libre en la cola, se dispara la interrup- 
ci6n y se ejecuta de nuevo la rutina de la li- 
nea 70, obsequi6ndonos con otra nota. 
Hay que sealar una cosa importante. Tan 

pronto como un ON S GOSUB ha enviado al 
micro a la subrutina, la interrupci6n se desac- 
tiva. $61o funciona una vez. 
Si desea usarla nuevamente es necesario 
emitir otro ON SQ GOSUB para que se acti- 
ve otra vez. Esta es la raz6n por la que la li- 
nea 100 tiene otro ON SQ GOSUB permitien- 
do de nuevo la interrupci6n. Cada vez que he- 
mos Ilamado a la rutina, la interrupci6n se ha 
desactivado. La linea 100 se asegura de acti- 
varla antes de regresar al programa principal. 
A prop6sito, si utiliza un comando SOUND 
o la funci6n SQ en sus programas tendr que 
reponer la interrupci6n despus, aunque esl6 
adem6s desconectada. 
Ahora intente omitir la linea 80 del Progra- 
ma III y vea si es capaz de explicar Io que pa- 
sa. El micro nos dice que los datos que aca- 
baron mucho antes de que hayan sido utiliza- 
dos los 11 valores de tono ,Pr qg? 
La respuesta se encuentra en la linea 100. 
Contin0a buscando ms notas para colocar- 
las en la cola cuando aparezca un espacio va- 
cante. Despu6s que se hayan metido 11 no- 
tas en la cola de espera todavia sigue buscan- 
do m6s. Debido a que ahora no est6 el RES- 
TORE de la linea 80, ya que la hemos supri- 
mido, aparece el mensaje: 
DATA exhausted in 70 
El resultado es que el programa casca (se ,.. 
interrumpe) antes que todas las notas hayan 
alcanzado el comienzo de la cola y hayan si- 
do reproducidas. 
Y 6ste es el momento en el que tambi6n nos- 
tros nos hemos quedado sin datos. Consultan- 
do todo Io que se relaciona con el sonido com- 
probamos que no senos queda nada en la co- 
la de espera, excepto el Programa IV que po- 
ne en acci6n de nuevo a SQ y ON SQ GO- 
SUB precisamente. 
Intente averiguar c6mo funciona, y despu6s 
pruebe usar todo Io que ha descubierto en esta 
serie para escribir su propia m0sica. 
Aprender mucho m6s experimentando con 
los comandos de sonido de su micro que le- 
yendo y estudiando sobre el tema. Y se diver- 
tir6 un mont6n, que al fin y al cabo es Io que 
hay que tratar a la hora de ponerse a progra- 
mar. 
Prop6nganos algo simp6tico y Io veremos 
en MICROHOBBY AMSTRAD. Por nues- 
tra parte le enviamos un saludo. 

I0 REM PROGRAMA IV 
20 ON SQ(1) GOSUB 70 
30 WHILE NOT verdadero 
40 PRINT "El Amstrad esta haciendo 
50 WEND 
60 REM rutina produclendo son,do 
70 READ tono 
80 contador=rontador+l 
90 SOUND l,tono, 100,7 
I00 IF contador<lO THEN ON SO(I GO 
SUB 70 
ii0 RETURN 
120 DATA 10,30,5070,90 
130 DATA 80,70,605040 



iNOVEDAD! PARA AMSTRAD 464-664-6"I 28-8256-8512 

MASER.RENA 
8512-14 900 
8286-14.900 
6t28-14.900 

MASTERCOM 
8512-t9 900 
8256-19900 
6128-t9900 

MASERGESF 
8512-14.900 
8256.14,900 
6128-14 900 

MASERBI OCK 
8256 6900 
6228- 6.900 
464 • 2900 

MA$7EREXT 
628- 4,800 
44 - 3.800 

MASTERCOPY 
6128 3.900 
464 - 2900 

MASTERPROFE 
6t28- 2,900 
464 - 1900 

MASTERQH 
85t2. 3,900 
8256- 3.900 
6128- 3.900 
464 - 2.500 
MSX - 2.900 

MASTERBINGO 
628- 2 900 
464 - t 900 

MASTER-RULETA 
6t28- 2.900 
464 • t 900 

MASFERHOROSCOPO 
6128- 3.600 
464 - 2.300 

MASTER.RELOJ 
6128 2 500 
464 • t 500 

Realiza las declaraciones de la Renta, tanto ordinarias como 
simplificadas, pudiendo cubrir los impresos oficiales o realizar 
un listado de los datos, tanto en pantalla como por impresora. 
Realiza todos los c61culos en I minuto. 
eestor de efectos comerciales. Contempla descuentos de re- 
mesas mfnimos, impagados, ITquidos, ITmites de descuentos, etc. 
Por pantalla o por impresora. Clasifica vencimientos, clientes, 
plazas y estudio de costes financieros de las remesas. 
Control de cuentas corrientes de bancos. Controla todos los 
movimientos realizados, ingresos, pagos, etc., pudiendo cono- 
cer el saldo en cualquier momento yen el formato del recibo 
del banco con el que est trabajando en ese momento. Pot 
pantalla o por impresora. Saldo general de todos los movimien- 
tos y todos los bancos, balance general. 
Agenda telef6nica con directorio. Con bQsquedas por Nom- 
bre, DirecciOn o Telfonos. Imprime etiquetas para sobres. 

Utilizable en cualquier tipo de impresora, pudiendo seleccio- 
nar partes del texto en diversos modos de escritura: Subraya- 
do, alargado, cambiar mcrgenes, tabulaciones, insertar carac- 
teres o Ifneas, etc. 
Copiador de pantalla en cualquier tipo de impresora compa- 
tible con AMSTRAD. Trabaja los 3 modos de pantalla, pudien- 
do elegir la zona de pantalla a copiar. 
Programa educativo referente a figuras planas tales como 
tri(ngulos, cuadrados, circunferencias, etc. y volQmenes tales 
como esferas, cilindros, pir6mides, etc., explicando todas sus 
caractefisticas. 
Control de carreras de caballos con pronOsticos tanto indivi- 
duales como conjuntos entre varios caballos. 
Base de datos 200 caballos y 300 carreras. 
TAMBIEN DISPONIBLE PARA MSX. 
Edita cartones, extracciones de bolas manual o automctico, 
listado de premios y comprobaciOn. 
Es tan real que usted se encuentra envuelto en el casino de 
Montecarlo. 
Su astr61ogo particular: 
Calcula su tabla de nacimiento segQn la hora, fecha y lugar 
de nacimiento, dOndole datos sobre su personalidad. 
Tendencias del futuro. 
Algoritmos verdaderos. 
Reloj programable con alarma. 

Buscamos distribuidores. 
Envfos contra reembolso a toda Espara. 

Centro Comercial Sto. Domingo 
Ctra. Burgos, km 28 
Algete [MADRID]. Tel.: 622 12 89 



CM 

I I 

Si no puedes practicar |us depodes de mqerno favoritos le 
ofmcemos oportunidad de hacedo cm I ordenador. Ocho 
competiciones distJntas te esoeran, kpresbrate a oquipade y 
disfmta con el descenso, slalom, salto skL etc 
S 

Juego en el que puedes crea a tu proplo boxeador. Elige su 
raza, estilo llSlCO e imagen. EntJ'+nale y demuestra sus 
hahilidades 
¢5 

° ou've foufid your way in. 
But Is there a w,: ,ut? 
q 
AMTRAD ', "'" "" 
Compleja aventura oe los jagadores ben br a av+s 
de las d+erentes pistas y pmblemas co remlver el 
mistefio. 

y ademas... MINDSHADOW, GHOSTBUSTER. 

prdximo lanzamiento 
BACK TO THE FUTURE, ON COURT TENNIS 

Disponibles para: 
SPECTRUM S 
COMMODORE C 
MSX M 

EN TIENDAS ESPECIALIZADAS Y GRANDES ALMACENES, 
O DIRECTAMENTE Distribuido por: 
POR CORREO O TELEFONO A: PROEIN, S.A. 
VeMzquez, 10 - 28001 Madr/d Tel& (91) 276 22 08/09 



